delphi 中action怎么用

发布网友发布时间：2024-05-04 19:09

共3个回答

热心网友时间：2024-11-24 07:09

procere TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if messageDlg('是否关闭窗口?',mtConfirmation,[mbYes,mbNo],0)=mryes then
Action :=caFree;
else
Action :=caNone
end;
试试看(注意后面的分号)

热心网友时间：2024-11-24 07:10

应该用messagebox

热心网友时间：2024-11-24 07:10

if MessageBox(0,'是否要退出本系统？','提示信息',MB_YESNO+MB_ICONQUESTION)=IDYES then
Application.Terminate;
else
Action := caNone;

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com