B
bgcy
Unregistered / Unconfirmed
GUEST, unregistred user!
我想在FormClose的时候,(点取窗口左上角的close),如果Button1的属性为True,
则不关闭窗口.否则关闭窗口;为什么下面不起作用?请教如何实现?
procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
if Button1.Enabled=True then
showmessage('aaaaaaaaa!')
else
close;
end;
则不关闭窗口.否则关闭窗口;为什么下面不起作用?请教如何实现?
procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
if Button1.Enabled=True then
showmessage('aaaaaaaaa!')
else
close;
end;