如何做出與主Form分離的第二個Form |
|
尚未結案
|
|
billlee
一般會員   發表：31 回覆：46 積分：15 註冊：2002-06-25 發送簡訊給我 |
|
|
jessechan
版主  發表：109 回覆：394 積分：254 註冊：2002-04-05 發送簡訊給我 |
要解答這個問題首先要知道為什麼兩個 form 會一起縮小, 請參閱
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=27855
我的解決方法如下, 如有疑問, 請再 post 上來.
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Form1->WindowProc = vMyWndProc;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::vMyWndProc(Messages::TMessage &Message)
{
Form1->WndProc(Message);
if ((Message.Msg == WM_SYSCOMMAND) && (Message.WParam == SC_MINIMIZE))
{
Application->Restore();
Form1->Visible = false;
Form2->WindowState = wsNormal;
SetForegroundWindow(Form2->Handle);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TrayIcon1Restore(TObject *Sender)
{
Form1->Visible = true;
}
//--------------------------------------------------------------------------- Jesse Chan
------
Jesse Chan |
|
billlee
一般會員 發表：31 回覆：46 積分：15 註冊：2002-06-25 發送簡訊給我 |
引言: 要解答這個問題首先要知道為什麼兩個 form 會一起縮小, 請參閱 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=27855 我的解決方法如下, 如有疑問, 請再 post 上來. //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { Form1->WindowProc = vMyWndProc; } //--------------------------------------------------------------------------- void __fastcall TForm1::vMyWndProc(Messages::TMessage &Message) { Form1->WndProc(Message); if ((Message.Msg == WM_SYSCOMMAND) && (Message.WParam == SC_MINIMIZE)) { Application->Restore(); Form1->Visible = false; Form2->WindowState = wsNormal; SetForegroundWindow(Form2->Handle); } } //--------------------------------------------------------------------------- void __fastcall TForm1::TrayIcon1Restore(TObject *Sender) { Form1->Visible = true; } //--------------------------------------------------------------------------- Jesse Chan謝謝你，我會照著試試看的^_^ |
發表時間：2003-04-07 11:50:03
IP:211.21.xxx.xxx 未訂閱
系統時間：2024-11-23 18:40:11
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |