U unixhost Unregistered / Unconfirmed GUEST, unregistred user! 2000-06-25 #1 不能close,一按 X 钮，就和按了最小化按钮一样.
O OopsWare Unregistered / Unconfirmed GUEST, unregistred user! 2000-06-25 #2 子窗口关闭时 OnClose; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Action:=caFree; // 关闭 Action:=caMinimize; // 最小化 Action:=caHide; // 不可视 Action:=caNone; // 无响应 end;
子窗口关闭时 OnClose; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Action:=caFree; // 关闭 Action:=caMinimize; // 最小化 Action:=caHide; // 不可视 Action:=caNone; // 无响应 end;
H honghs Unregistered / Unconfirmed GUEST, unregistred user! 2000-06-28 #5 OopsWare,这么简单的问题你也有意思拿分？？？？
W www Unregistered / Unconfirmed GUEST, unregistred user! 2000-06-28 #6 action:=cafree 但以后你在使用这个窗体时必须重新建立它,因为这个form已经被free掉了
H htw2000 Unregistered / Unconfirmed GUEST, unregistred user! 2000-06-28 #7 请在 MDI Child 的 OnClose() 事件中加入这列代码： Action := caFree; 例: procedure TFrom1.FormClose(Sender: TObject;var Action: TCloseAction); begin Action := caFree; end;
请在 MDI Child 的 OnClose() 事件中加入这列代码： Action := caFree; 例: procedure TFrom1.FormClose(Sender: TObject;var Action: TCloseAction); begin Action := caFree; end;
S Skyman Unregistered / Unconfirmed GUEST, unregistred user! 2000-06-28 #8 呃.......的确太那个......，都没答错，就是caFree而已，例子里早就有了。蒙不着分了。
