當程式執行時螢幕上會出現2個Form(TForm)，
假設主要視窗為Form1，當Form1被移動時，Form2也要跟著移動。
我本來是想使用MouseDown和MouseUp取得Form1移動的距離。
可是Form能移動是要滑鼠點在標題列上，但這樣就偵測不到MouseDown和MouseUp的事件了。
請問大家有人知道該怎麼做才能讓Form1移動時Form2也跟著移動呢?

想寫簡單點的話，就用個Timer去偵測吧~

噢~我有找到一個另解
不過~是用Delphi寫的...

請注意procedure的部份即可~


[code delphi]
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
procedure OnMove(var Msg: TWMMove); message WM_MOVE;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.OnMove(var Msg: TWMMove);
begin
Caption := IntToStr(Form1.Left) ', ' IntToStr(Form1.Top);
inherited;
end;

end.
[/code]


===================引 用 kirei6989 文 章===================
當程式執行時螢幕上會出現2個Form(TForm)，
假設主要視窗為Form1，當Form1被移動時，Form2也要跟著移動。
我本來是想使用MouseDown和MouseUp取得Form1移動的距離。
可是Form能移動是要滑鼠點在標題列上，但這樣就偵測不到MouseDown和MouseUp的事件了。
請問大家有人知道該怎麼做才能讓Form1移動時Form2也跟著移動呢?

編輯記錄

作者: 蕭沖


[code cpp]
class TForm1 : public TForm
{
__published: // IDE-managed Components
void __fastcall FormShow(TObject *Sender);
private: // User declarations
void __fastcall OnMoving(TMessage &msg);
public: // User declarations
__fastcall TForm1(TComponent* Owner);
protected:
BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(WM_MOVING, TMessage, OnMoving)
END_MESSAGE_MAP(TForm)
};
[/code]


[code cpp]
//---------------------------------------------------------------------------
void __fastcall TForm1::OnMoving(TMessage &msg)
{
// RECT *pRect = 0;
// pRect = (RECT*)msg.LParam;
// TRect rect(*pRect);

Form2->Left = Left Width 50;
Form2->Top = Top Height 20;

}

//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
Form2->Show();
}
//--------------------------------------------------------------
[/code]

------


蕭沖
--All ideas are worthless unless implemented--

C++ Builder Delphi Taiwan G+ 社群
http://bit.ly/cbtaiwan

謝謝老大仔和aftcast，我剛剛試過OK了。
因為我不懂Delphi的語法，所以把分數給aftcast。
感謝兩位大大的協助。