答案:哈哈,选我吧!procedureTForm1.btn1Click(Sender:TObject);
begin
form1.Close;
end;
procedureTForm1.FormClose(Sender:TObject;varAction:TCloseAction);
begin
ifMessageDlg('是否关闭',
mtConfirmation,[mbYes,mbNo],0)=mrYesthen
begin
action:=caFree;
end
else
Action:=caNone;
end;
上一个:哥哥姐姐,小弟想学编程。请问是DELPHI好还是VB好
下一个:delphi 有类似MSDN那样的编程查询手册吗?