2011年11月18日

Delphi回调函数的使用－例子

摘要： 功能大体描述：Form1中有一个Edit和一个Button,当点击BUTTON时弹出FORM2，FORM2中也有一个EDIT和一个BUTTON，当点击FORM2中的BUTTON时，将FORM2中的EDIT的TEXT属性赋值给FORM1中的EDIT的TEXT。 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Clas... 阅读全文

posted @ 2011-11-18 21:15 舟山牙医 阅读(2947) 评论(0) 推荐(0) 编辑

最简单的delphi启动画面（转）

摘要： 首先做一窗体，然后将BorderStyle的属性设为bsnone,放image控件，align设为alclient 然后将主程序的修改为 uses Windows, Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2}; {$ R *.res} begin Application.Initialize; Form2:=T... 阅读全文

posted @ 2011-11-18 21:13 舟山牙医 阅读(1065) 评论(0) 推荐(0) 编辑

Delphi中，让程序只运行一次的方法

摘要： program onlyRunOne;uses Forms,Windows,SysUtils, Dialogs, Unit1 in 'Unit1.pas' {Form1};{$R *.res}varmyMutex:HWND;beginmyMutex:=CreateMutex(nil,false,'11111'); //名称只能全系统唯一。if WaitForSingleObject(myMutex,0)<>wait_TimeOut thenbegin Application.Initialize; Application.CreateForm(TFo 阅读全文

posted @ 2011-11-18 21:06 舟山牙医 阅读(3380) 评论(0) 推荐(0) 编辑

导航