delphi TWebBrowser×é¼þʹÓÃÏê½â
delphi TWebBrowser×é¼þʹÓÃÏê½â
¸Ã×é¼þÊÇÒ»¸öä¯ÀÀÆ÷×é¼þ£¬¿ÉÒÔÏÔʾһ¸öÖ¸¶¨µØÖ·µÄÍøÒ³¡¢ÉèÖÃÍøÒ³´ò¿ªÊ±µÄÖ÷Ò³ÒÔ¼°¶ÔÍøÒ³½øÐÐÏà¹ØµÄ²Ù×÷£¬Í¬Ê±Ò²¿ÉÒÔ¶ÔHTMLÎļþ½øÐмôÇС¢¸´ÖÆ¡¢Õ³Ìù¡¢É¾³ýµÈ²Ù×÷¡£¸Ã
×é¼þÔÚInternet×é¼þÒ³ÖС£
1£®ÊôÐÔ
£¨1£©AddressBarÊôÐÔ
ÉèÖÃÊÇ·ñÏÔʾµØÖ·À¸£¬ÔÚTWebBrowserÖÐûÓÐÓá£
Óï·¨£º
property AddressBar: WordBool;
£¨2£©BusyÊôÐÔ
È·¶¨Webä¯ÀÀÆ÷×é¼þÊÇ·ñÕýÔÚµ¼º½µ½Ò»¸öеÄURLµØÖ·»òÕýÔÚÏÂÔØÎĵµ¡£
Óï·¨£º
property Busy: WordBool;
ʾÀý£º
Èç¹û¸ÃÊôÐÔֵΪTrue£¬ÔòÔÚ¿ªÊ¼Ò»¸öеIJÙ×÷ǰ£¬¿ÉÓÃStop·½·¨ÖÐÖ¹µ±Ç°²Ù×÷£¬È»ºóÔÙµ¼º½µ½ÆäËûµÄÒ³Ãæ£¬´úÂëÈçÏ£º
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if WebBrowser1.Busy then
WebBrowser1.Stop;
WebBrowser1.Navigate('www.mingrisoft.com');
end;
£¨3£©ContainerÊôÐÔ
·ÃÎÊWebä¯ÀÀÆ÷¸¸Àà»òÈÝÆ÷µÄ½Ó¿Ú¡£
Óï·¨£º
property Container: IDispatch;
ʾÀý£º
Èç¹ûWebä¯ÀÀÆ÷ûÓÐÒ»¸ö¾ßÓÐAutomation½Ó¿ÚµÄÈÝÆ÷£¬Ôò¸ÃÊôÐÔµÄֵΪ¿Õ¡£·ñÔò¿ÉÒÔͨ¹ý·µ»ØµÄ½Ó¿Ú£¬·ÃÎÊWebä¯ÀÀÆ÷¸¸Àà»òÈÝÆ÷£¬´úÂëÈçÏ£º
if WebBrowser1.Container <> nil then
begin
WebBrowser1.Stop;
end
Ïà¹ØÎĵµ£º
°ïÖúÒ³ÔÚhttp://delphi.about.com/cs/adptips2003/a/bltip0203_2.htm
×Ô¼ºÔÚʵÏֵĹý³ÌÖеľßÌå¹ý³ÌÈçÏ£º
function InstallInf(const PathName: string; hParent: HWND): Boolean;
var
instance: HINST;
begin
instance := ShellExecute(hParent,
PChar('open ......
procedure TForm1.Button2Click(Sender: TObject);
var
name:String ;
begin
name := edit2.Text ;
name := '%' + name ;
query1.Close ;
query1.SQL.Clear ;
query1.SQL.Add('select * from gjh_t where name like '''+name+'''') ;
&nb ......
Îҵİ취£¬Ôö¼ÓÒ»¸ötimer ÉèÖüä¸ô100ms£¬Í¨¹ýtimerµÄʹÄÜ·ñ£¬¿ØÖƱ¨¾¯ÉùÒô¿ª¹Ø
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Windows.Beep(1200+i_f,10+i_f);
if i_f<2000 then
begin
inc(i_f);
end
end;
== ......
ÔÚÉÏһƪÖУ¬ÎÒÃǼòµ¥µÄʵÏÖÁËÒ»¸ö¶ÔDelphi×ÔÉíµÄTEdit±à¼¿ò¿Ø¼þµÄÒ»¸öÀ©³ä£¡µ«ÊÇÎÒÃDz¢²»ÄÜÏñDelphi×Ô¼ºµÄTEditÒ»Ñù£¬Äܹ»
ÔÚÉè¼Æ×´Ì¬Ï½øÐÐÉè¼Æ£¬¶øÊǷǵÃÒª×Ô¼ºÊÖ¶¯´´½¨¿Ø¼þ£¬È»ºó²ÅÄÜʹÓá£Õâ¸öËäȻ˵ҲÊÇ×é¼þ£¬µ«ÊÇȴʧȥÁË×é¼þµÄ¿ÉÉè¼ÆµÄ·½±ãÐÔ£¬½ö½ö¿É×÷Ϊһ¸öÀà¿âÀ´Ê¹Óá£
ÏÖÔÚÎÒ¾ÍÀ´½éÉÜһϣ¬ÈçºÎÈÃÕâ¸ö×é¼þ×¢ ......
¾àÀëÉÏһƪϵÁеÄÎÄÕÂÓÐÒ»¶Îʱ¼äÁË£¬¼ÙÖÕÓÚÊÇ·ÅÍêÁË£¡ÏÖÔÚÔÛ¼ÌÐøÔÚTEditÉÏ×öÎÄÕ£¬Í¬Ê±À´ÊìϤijЩWindowsµÄϵͳÏûÏ¢¡£ÏÖÔÚÎÒ½²µÄÊÇÈçºÎʵÏÖÒ»¸öÀàËÆQQ±à¼¿òµÄÑùʽ¡£
ÔÙ½²½â֮ǰ£¬ÏÈ»ØÀ¡Ç°¼¸ÆªÎÄÕÂÓÐЩÈËÌá³öµÄÎÊÌ⡣ͨ¹ýǰ¼¸ÆªÎÄÕ£¬ÓкܶàÈ˹Ø×¢£¬Í¬Ê±Ò²ÓÐÈ˸øÁËһЩ½¨Òé¡£ËùÒÔÎÒÕâÀï˵Ã÷һϣ¬ÎÒÕâ¸ö×é¼ ......