大虾们好!
例如下面的部分程序:
procedure TF_Main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
F_Main.Close;
end;
我想在按钮中调用上面的事件,是不是应该如下?如果是,问号里应该填什么?
procedure TF_Main.btn_exitClick(Sender: TObject);
begin
F_Main.OnClose(?);end;
例如下面的部分程序:
procedure TF_Main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
F_Main.Close;
end;
我想在按钮中调用上面的事件,是不是应该如下?如果是,问号里应该填什么?
procedure TF_Main.btn_exitClick(Sender: TObject);
begin
F_Main.OnClose(?);end;
begin
Close(); //这样就可以了
end;