Question

delphi FormClose问题

是这样的,在FormClose事件中我想写一个IF条件为true就关闭为false就不关了，怎么写啊？？？

Answer 1

第一种:
procedure TForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if false then
Action:=caNone;
end;
第二种:
FormCloseQuery(Sender: TObject; var CanClose:Boolean);//CanClose是否可关闭

沙支夸依的答案也是可以的,我简化下:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=Application.MessageBox('确定要停止并关闭服务吗?', '提示', MB_YESNO+MB_ICONQUESTION)=IDYES;
end;

Answer 2

你要的功能不是在FormClose事件中完成的。而是在FormCloseQuery事件中完成的。给你个例子：
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
Ret: Integer;
begin
Ret := Application.MessageBox('确定要停止并关闭服务吗?', '提示', MB_YESNO+MB_ICONQUESTION);
if Ret-IDYES = 0 then
begin
CanClose := TRUE;
end else CanClose := FALSE;
end;