关于MDI窗体????(20分)

  • 主题发起人 主题发起人 weel
  • 开始时间 开始时间
W

weel

Unregistered / Unconfirmed
GUEST, unregistred user!
为什么按MDI子窗体的×时,是最小化窗口而不是关闭窗口?
按窗体的“退出”按钮也是一样。
退出按钮用的是“Close”语句。
 
action:=cafree;
 
具体一点可以吗?
 
够具体?
procedure TFrom1.FormClose(Sender: TObject;var Action: TCloseAction);
begin
Action := caFree;
end;


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree; // 关闭
Action:=caMinimize; // 最小化
Action:=caHide; // 不可视
Action:=caNone; // 无响应
end;
 
接受答案了.
 
后退
顶部