Question

delphi如何创建关闭事件

就是当点击“x”的时候，创建一个过程，不知道怎么操作？

Answer 1

点击X的时候触发事件 一般是在Form的OnKeyDown或者OnKeyPress事件进行
procedure FormOnKeyPress(Sender : TObject);
begin
if Key = 'X' then
DoSthWhenPressKeyX;
end;

然后DoSthWhenPressKeyX事件由你自己定了

Answer 2

当关闭一个窗体时就会响应OnClose和OnCloseQuery事件

窗体的onclose事件
procedure FormClose(Sender: TObject; var Action: TCloseAction);

窗体的onCloseQuery事件
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

OnCloseQuery事件比OnClose具有更高的优先级。

追问

。。。。。。。

Answer 3

在OnClose事件里边写代码就可以了

Answer 4

在OnClose 事件里写代码