Delphi´°Ìåµ½µ×ÈçºÎ²ÅÄÜÒþ²Ø£¿
ÔÚÍøÉÏËÑÁ˺ܶ෽·¨£¬¸Ð¾õ¶¼²»ºÃÓᣠÓÐ˵ÓÃForm1.HideµÄ£¬µ«ÊÇÎÒ·¢ÏÖÕâ¸ö¸ù±¾Ã»ÓᣠÓÐ˵ÓÃshowwindow(application.handle,sw_hide); µÄ£¬Ò²²»ÐС£ ÓÐ˵ ÔÚ¹¤³ÌÎļþµÄ Application.Run£» Ç°Ãæ¼ÓÉÏ Application.ShowMainForm:=False; µÄ£¬Õâ¸öµ¹ÊÇ¿ÉÒÔÒþ²Ø£¬¾ÍÊÇ´°ÌåÉÏÃæµÄWebBrowser¿Ø¼þÓò»ÁËÁË¡£ ÆÚ´ý¸ßÊÖ¸øÒ»¸öÍêÃÀµÄ½â¾ö°ì·¨°¡¡£
procedure TForm1.FormCreate(Sender: TObject); begin Self.WebBrowser1.Navigate('WWW.SINA.COM'); Windows.SetParent(WebBrowser1.Handle, 0); end; Application.Initialize; Application.CreateForm(TForm1, Form1); Application.ShowMainForm:=False; Application.Run; ÄãÊÇÏëҪʵÏÖ´°Ìå͸Ã÷°É ÔÚinterfaceµÄprivateÀï¼ÓÈë PROCEDURE CMEraseBkgnd(var Message:TWMEraseBkgnd);Message WM_ERASEBKGND; ÔÚimplemetationÀï¼ÓÈë PROCEDURE Tform1.CMEraseBkgnd(var Message:TWMEraseBkgnd); BEGIN brush.style:=bsClear; Inherited; END; ÒýÓà procedure TForm1.FormCreate(Sender: TObject); begin Self.
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÄ£¿éÀï×Ô¶¨ÒåÁËÒ»¸öº¯Êý:stradd() ¿ÉÊÇÔÚadoquery1.sql.add('select stradd(author) from book'); ʱÌáʾstradd䶨Òå... Õâ¸öÎÊÌâÓÐʲô°ì·¨¿ÉÒÔ½â¾öµÄÂð? ·Ç³£¸Ð¼¤! (ÔÚA ......
×òÍíÔÚDelphiÊý¾Ý¿â²éѯÖÐÓöµ½ÁËÒ»¸öÒɻ󡣴úÂëÈçÏ£º procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject); var XY : string; begin XY := comboboxxy.Items[comboboxx ......
delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º RROR (1058): The driver is marked as disabled (Start=4) in its service database entry. ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......
¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£ ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£ È磺DLLImport.GlobalAddAtom(¡¡); Îļþ£ºUShare.pas Delphi(Pascal) code: unit UShare; interface uses Windows, Me ......