1,185
社区成员




procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
WebBrowser1.Navigate('res://' + ParamStr(0) + '/myhtml');
end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
WebBrowser1.OleObject.Document.body.Scroll :='no';
WebBrowser1.OleObject.Document.Body.style.border := 'none';
WebBrowser1.OleObject.Document.Body.Style.margin := '0px';
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if GetKeyState(VK_ESCAPE)<0 then close;
end;