如何讓兩個Form一起動 |
|
答題得分者是：wjhsu
|
|
alvinken
初階會員   發表：21 回覆：32 積分：45 註冊：2008-06-09 發送簡訊給我 |
|
|
tomoi
初階會員 發表：2 回覆：30 積分：41 註冊：2008-07-14 發送簡訊給我 |
|
|
wjhsu
初階會員 發表：9 回覆：32 積分：48 註冊：2004-06-13 發送簡訊給我 |
好玩, 剛剛試了一下, 你參考看看
[code cpp] void __fastcall TForm1::FormCreate(TObject *Sender) { WindowProc = MovingForm; } //--------------------------------------------------------------------------- void __fastcall TForm1::MovingForm(TMessage &Message) { if (Message.Msg == WM_MOVING) { LPRECT m = (LPRECT) Message.LParam; Form1->Left = m->left; Form1->Top = m->top; Form2->Left = m->left Form1->Width; Form2->Top = m->top; } WndProc(Message); } [/code] |
|
careychen
尊榮會員  發表：41 回覆：580 積分：959 註冊：2004-03-03 發送簡訊給我 |
hi, 試試這樣
[code cpp] void __fastcall TForm1::FormPaint(TObject *Sender) { Form2->Left = this->Left 200; Form2->Top = this->Top 200; } [/code] ===================引 用 alvinken 文 章=================== 有兩個Form, 我想讓一個移動時,另一個也跟著移動 請問要寫在哪個事件或用什麼方法能達到效果
------
價值的展現，來自於你用哪一個角度來看待它!! |
|
tomoi
初階會員 發表：2 回覆：30 積分：41 註冊：2008-07-14 發送簡訊給我 |
W兄的方法測試OK
但是C兄的方法不行,移動Form不會產生FormPaint的事件啊?? ===================引 用 careychen 文 章=================== hi, 試試這樣 [code cpp] void __fastcall TForm1::FormPaint(TObject *Sender) { Form2->Left = this->Left 200; Form2->Top = this->Top 200; } [/code] ===================引 用 alvinken 文 章=================== 有兩個Form, 我想讓一個移動時,另一個也跟著移動 請問要寫在哪個事件或用什麼方法能達到效果
------
Tomo |
|
careychen
尊榮會員 發表：41 回覆：580 積分：959 註冊：2004-03-03 發送簡訊給我 |
?? 哦哦，我明白了，我剛試了一下，因為我的另一個 Form 有疊在原本 Form 的上面
所以會一直產生 Repaint 的效果，而造成 OnPaint 有事件進來，明白了，謝謝 ===================引 用 tomoi 文 章=================== W兄的方法測試OK 但是C兄的方法不行,移動Form不會產生FormPaint的事件啊?? ===================引 用 careychen 文 章=================== hi, 試試這樣 [code cpp] void __fastcall TForm1::FormPaint(TObject *Sender) { Form2->Left = this->Left 200; Form2->Top = this->Top 200; } [/code] ===================引 用 alvinken 文 章=================== 有兩個Form, 我想讓一個移動時,另一個也跟著移動 請問要寫在哪個事件或用什麼方法能達到效果
------
價值的展現，來自於你用哪一個角度來看待它!! |
發表時間：2008-07-31 11:37:42
IP:218.170.xxx.xxx 未訂閱
系統時間：2024-04-24 11:49:34
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |