W weel Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-06 #1 为什么按MDI子窗体的×时,是最小化窗口而不是关闭窗口? 按窗体的“退出”按钮也是一样。 退出按钮用的是“Close”语句。
W wjiachun Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-06 #4 够具体? 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;
够具体? 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;