P Pistons Unregistered / Unconfirmed GUEST, unregistred user! 2005-10-24 #1 怎样将一个formstyle为fsmdichild 属性的窗体, 隐藏,关闭(不是最小化), 开启. 请各位高手指教! 可能表达的不是很清楚, 我的QQ号是57455324.
P Pistons Unregistered / Unconfirmed GUEST, unregistred user! 2005-10-24 #2 怎样将一个formstyle为fsmdichild 属性的窗体, 隐藏,关闭(不是最小化), 开启. 请各位高手指教! 可能表达的不是很清楚, 我的QQ号是57455324.
Z zyycc Unregistered / Unconfirmed GUEST, unregistred user! 2005-10-24 #3 在OnClose事件中，将Action:=caFree;即可
V vvyang Unregistered / Unconfirmed GUEST, unregistred user! 2005-10-24 #4 在 OnClose 事件中写： Action := caFree;
X xianguo Unregistered / Unconfirmed GUEST, unregistred user! 2005-10-24 #5 procedure TMainForm.miOutpatRegClick(Sender: TObject); begin If (Form1= Nil) Then Form1:= TForm1.Create(Application) ; Form1.Show; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; end; procedure TForm1.FormDestroy(Sender: TObject); begin Form1:= nil; end;
procedure TMainForm.miOutpatRegClick(Sender: TObject); begin If (Form1= Nil) Then Form1:= TForm1.Create(Application) ; Form1.Show; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; end; procedure TForm1.FormDestroy(Sender: TObject); begin Form1:= nil; end;
