delphi 按右上方X怎么最样小化

Question

delphi 按右上方X怎么最样小化

Answer 1

在form的close事件里写 Action:=caMinimize
想关闭的话设置个BOOLEAN变量
var kaiguan:boolean;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if kaiguan=false then
Action:=caMinimize;
else
Action:=cafree;
end;

Answer 2

在form的close事件里写 Action:=caMinimize
想关闭的话设置个BOOLEAN变量
var kaiguan:boolean;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if kaiguan=false then
Action:=caMinimize;
else
Action:=cafree;
end;