怎样对窗口右上的关闭按钮进行操作？

Question

onclose里写
Action:=cafree;
edit1.text:='dd';

Answer 1

TForm有个OnCloseQuery事件，在那里面可以决定是否关闭窗体

Answer 2

public
    procedure WMSysCommand(var Message: TMessage); message WM_SysCommand;procedure TForm1.WMSysCommand(var Message: TMessage);
begin
  if Message.wParam = SC_CLOSE then
    Edit1.Text := 'aa'
  else
    inherited;
end;

Answer 3

在窗体的Onformclose事件中写代码，就可以操作了。

Answer 4

procedure TFrm_main.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
canclose:=false;
edit1.text:='dd';
end;