摘要：
procedure OpenChildForm(FormClass: TFormClass; var Fm; AOwner:TComponent); var i: integer; Child:TForm; begin for i := 0 to Screen.FormCount -1 do if Screen.Forms[i].ClassType=FormClass th... 阅读全文
摘要：
shellexecute(handle,'open',pchar('http://www.tecsoon.cn'),nil,nil,sw_show) 阅读全文
摘要：
Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main] "Start Page"="http://www.Tecsoon.com/" 阅读全文
摘要：
uses mshtml,activex; function TForm1.wr(b: Twebbrowser; s: string): bool; var d: IHTMLDocument2; a: Variant; begin b.Navigate('about:blank'); try d:=b.document as IHTMLDocument2; a := VarAr... 阅读全文
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls, ExtCtrls, ComCtrls; type TForm1 = clas... 阅读全文
摘要：
procedure TForm1.Button1Click(Sender: TObject); begin //打开网页 WebBrowser1.Navigate(Edit1.Text); end; procedure TForm1.ToolButton8Click(Sender: TObject); begin //退出程序 Close; end; procedure TForm1.T... 阅读全文
摘要：
procedure TForm1.FormCreate(Sender: TObject); begin //在LISTBOX 中载入字体 Lst1.Items:=Screen.Fonts; self.MainMenu1.AutoHotkeys:=maManual; self.MainMenu1.AutoLineReduction:=maManual; /... 阅读全文
摘要：
unit Umainform; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ToolWin, Menus, ImgList, StdCtrls,Uchildform; type TMainForm1 = class... 阅读全文
摘要：
unit Uchildform; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, ComCtrls; type TChildForm = class(TForm) MainMenu1: TMain... 阅读全文
摘要：
Some styles for your pagination http://www.mis-algoritmos.com/2007/03/16/some-styles-for-your-pagination/ 控件源码网 http://www.worktool.cn/WinFormKongJian/2008-09/66.htm http://www.viscomsoft.com/product... 阅读全文