引言: Dear All, 請問一下, 我在程式裏產生一個Form時,當MainForm最小化或隱藏到TrayIcon時,所產生的Form也會跟著不見,有沒有什麼辦法,可以讓這種情形不會發生呢? ex:就像在ICQ or MSN Messanger產生一個新的Message Form後,就算主程式隱藏到TrayIcon去,Message Form 依可以在工作列看到,也不會跟著隱藏. 請大家幫個忙吧,謝謝!! Blowfish === Study, Study and Study ===

F:=TForm.Create(nil); F.Sohow;

引言: F:=TForm.Create(nil); F.Sohow;

 TMyForm *myFrm = new TMyForm(NULL);
 muFrm->Show();

引言: 我在程式裏產生一個Form時,當MainForm最小化或隱藏到TrayIcon時,所產生的Form也會跟著不見,有沒有什麼辦法,可以讓這種情形不會發生呢? ex:就像在ICQ or MSN Messanger產生一個新的Message Form後,就算主程式隱藏到TrayIcon去,Message Form 依可以在工作列看到,也不會跟著隱藏.

假設你已經搞定TrayIcon， 就以動態新增了一個Form，Name is "MyForm"; 這是一個簡單的code...看看可否解決你的困擾.... < class="code"> //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { TForm *newForm = new TForm(this); newForm-＞Name = "MyForm"; newForm-＞Width = 200; newForm-＞Height = 200; newForm-＞Top = 50; newForm-＞Show(); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) {[red] ::ShowWindow(Handle, SW_HIDE); ::ShowWindow(Application-＞Handle, SW_HIDE); for(int i=0; i＜Form1-＞ComponentCount; i ) if(Components[i]-＞Name == "MyForm") { TForm *tmpForm = (TForm *)Components[i]; [red]::ShowWindow(tmpForm-＞Handle, SW_SHOW); } } //---------------------------------------------------------------------------

引言: 假設你已經搞定TrayIcon， 就以動態新增了一個Form，Name is "MyForm"; 這是一個簡單的code...看看可否解決你的困擾.... < class="code"> //--------------------------------------------------------------------__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { TForm *newForm = new TForm(this); newForm-＞Name = [red]"MyForm"; newForm-＞Width = 200; newForm-＞Height = 200; newForm-＞Top = 50; newForm-＞Show(); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) {[red] ::ShowWindow(Handle, SW_HIDE); ::ShowWindow(Application-＞Handle, SW_HIDE); for(int i=0; i＜Form1-＞ComponentCount; i ) if(Components[i]-＞Name == "MyForm") { TForm *tmpForm = (TForm *)Components[i]; ::ShowWindow(tmpForm-＞Handle, SW_SHOW); } } //--------------------------------------------------------------------

引言: 謝謝Cooky Kid這麼熱心提供這一段code. 但是這樣跟我的要求還是有點差距,因為你的code到最後會變成在工作作上都沒有item,只會在在system tray上有item而已,這樣看起來還是怪怪的. 我的希望是,如果程式都縮到system tray上去了,當收到某個訊息時,會pop-up一個視窗出來,而不用顯示MainForm. 這樣有辦法嗎?

dear blowfish, 何不將你手上已經完成部分post出來？ 這樣也省了他人重新撰寫的力氣，而可專注你的問題上....