在线等+马上结+菜鸟提问:先来先得,禁止窗口退出,两时间相减
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//1.禁止退出代码
//2.两时间相减,计算机几分几秒钟

end;

[解决办法]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
time1,time :TDateTime;
begin
time1 := now();
CanClose := False;

time2 := now();
showmessage(DateTimetoStr(time2-time1))
end;

是这意思不