我想写了一个dll ,其中dll包括一个form,form上有二个按钮exit,ok,当单击ok 是调用返回的是1,当单击exit时,返回的是0,无论单击哪一个按钮,form都要关闭.
解决方案 »
- 关于注册信息时,一些判断的实现
- 如何制作非图形界面的winrar自解压文件
- IWebBrowser2 中怎么知道打开一个页面失败?
- 用adoquery搜索了几条记录,如何删除其中的一个?
- 怎样用IdTCPClient,IdTCPServer实现多人聊天,急!!!!
- 如何合并两个pardox表中的数据记录?
- 不知道vc中有没有MIDAS应用的概念,还是delphi中独有的?
- 如何把edit中的数字在用户输入完后自动加上小数位 如输入10 输入完后自动变成¥10.00
- 江湖救急!--关于一个经其它字段计算而得的字段的问题
- 怎样编译但不运行程序?
- 问如何注册imgscan.ocx imgadmin.ocx imgedit.ocx imgthumb.ocx(在线急候~~~!)
- 谁有TlistView比较完整的例子?
按钮的cancel属性
library Clendar;uses
SysUtils,
Classes,
forms,
Unit1 in 'Unit1.pas' {Dllform};{$R *.res}
function ShowCalendar(AHandle:THandle;ACaption:string):TDateTime;
stdcall;
var
DllForm:TDLLForm;
begin
Application.Handle:=AHandle;
DllForm:=TDLLForm.Create(Application); //创建并显示窗体
try
DllForm.Caption:=Acaption;
Dllform.ShowModal;//显示方式为模式化必须摸显示才能停留。
result:=Dllform.dtime;//返回设定日期
finally
DllForm.Free;//用完后卸载该窗体
end;
end;exports ShowCalendar;//引出函数begin
end.DLL窗体
var
Dllform: TDllform;implementation{$R *.dfm}procedure TDllform.OKBtnClick(Sender: TObject);
begin
dtime:=calendar1.CalendarDate;
end;procedure TDllform.CancelBtnClick(Sender: TObject);
begin
dtime:=now;
end;------
一看就会!