在线等+马上结+菜鸟提问:先来先得,禁止窗口退出,两时间相减 procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);begin//1.禁止退出代码//2.两时间相减,计算机几分几秒钟end; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);vartime1,time :TDateTime;begin time1 := now(); CanClose := False; time2 := now(); showmessage(DateTimetoStr(time2-time1))end;是这意思不 获取打印机状态的问题 寻求Indy做FTP服务器好难,有做的朋友交流一下 100分~~求一计算器的完整源码.. 请教各位大侠一个小问题 我用DELPHI的Align...功能排列控件,但是由于一不小心把控件的位全弄乱了,有没有办法回到上步(UNDO好象不好使)? 编译为什么提示dsBrowse没有定义? 自动寻找汉字 错误,郁闷错误,郁闷错误,郁闷错误,郁闷 求用Delphi生成EXE的原程序谢谢! 如何将一个JPG文件做成一个资源文件,并能够有应用实例. Delphi7的Unicode问题. 散分,谁发点DELPHI的学习资料给小弟,不甚感激!
var
time1,time :TDateTime;
begin
time1 := now();
CanClose := False;
time2 := now();
showmessage(DateTimetoStr(time2-time1))
end;是这意思不