![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
delphi7 怎么判断窗体左右上方的关闭按钮是否按下 按下后能返回值么?
展开全部
可以用From的OnClose事件来记录是是否按下了关闭键
事件函数原型为:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
Action 是一个回调参数
例:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
showmessage('点击了窗口关闭');
if self.Caption = 'Form1' then //可以自己设置关闭条件
Action := cafree 关闭
else
Action := canone; 忽略关闭指令
end;
事件函数原型为:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
Action 是一个回调参数
例:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
showmessage('点击了窗口关闭');
if self.Caption = 'Form1' then //可以自己设置关闭条件
Action := cafree 关闭
else
Action := canone; 忽略关闭指令
end;
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询