在同一個Project內的2個Form各自 #include "Unit1.h" #include "Unit2.h" 之後用 Form2->Top=Form1->Top 50; Form2->Left=Form1->Left 100; 當拖移Form1時Form2應該也會移動才對. 請高手指點.

Form2並不知道Form1移動，同時你也沒有一個事件叫Form2該移動 建議你可以用一個Timer在Form2上(比較簡單) 再把你的內容 Form2->Top=Form1->Top 50; Form2->Left=Form1->Left 100; 寫再你的Timer事件中吧

引言: 在同一個Project內的2個Form各自 #include "Unit1.h" #include "Unit2.h" 之後用 Form2->Top=Form1->Top 50; Form2->Left=Form1->Left 100; 當拖移Form1時Form2應該也會移動才對. 請高手指點.

apc你好： 嗯，你應該是沒有寫在事件內吧!所以一定是無法總是同步的! 好像沒有直接對應的事件，直接找那個訊息比較快! class="code"> In .h ~~ class TForm1 : public TForm { __published: // IDE-managed Components TButton *Button1; void __fastcall Button1Click(TObject *Sender); private: // User declarations TWndMethod OldFormWndProc; //add this line void __fastcall FormWndProc(TMessage& Message); //add this line public: // User declarations __fastcall TForm1(TComponent* Owner); }; //--------------------------------------------------------------------------- extern PACKAGE TForm1 *Form1; ~~ In .cpp ~~ TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { OldFormWndProc=this->WindowProc; this->WindowProc=FormWndProc; } //--------------------------------------------------------------------------- void __fastcall TForm1::FormWndProc(TMessage& Message) { OldFormWndProc(Message); if (Message.Msg==WM_MOVING) { Form2->Top=Form1->Top 50; Form2->Left=Form1->Left 100; } } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { Form2->Show(); } ~~ Try if it works!

謝謝兩位大大的回答,多可行.blk5743大大先回答 這題就給了blk5743大大. 發表人 - apc 於 2005/01/19 00:05:20