各位大大好：

請問一下，form 的位置改變了，會觸發什麼事件?? (Left 、Top 有改變時)??
我一直試不出來。

謝謝!!
轉貼
方法一：
//(1) 头文件-----
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include
#include
#include
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TMemo *Memo1;
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
void FormOnMove(TMessage & msg);
protected:
BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(WM_MOVE, TMessage, FormOnMove)
END_MESSAGE_MAP(TForm)
};
extern PACKAGE TForm1 *Form1;
#endif

//(2) cpp文件
#include
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
}
void TForm1::FormOnMove(TMessage & msg)
{
//TODO: Add your source code here
} 方法二：
自己在Form里重新定义函数虚WndProc。
在头文件里加上：
protected:
void __fastcall WndProc(TMessage &Message);

在CPP里里加上：
//------------------------------------------------------------------
void __fastcall TForm1::WndProc(TMessage &Msg)
{
TForm::WndProc(Msg);
if (Msg.Msg==WM_MOVE) {
//写上你的代码
}
}

編輯記錄

幫你試過了, 並沒有相對應的事件可觸發

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

procedure OnMove(var Msg: TWMMove); message WM_MOVE;
procedure TForm1.OnMove(var Msg: TWMMove);
begin
Memo1.Lines.Add('X: ' IntToStr(msg.XPos) ' Y: ' IntToStr(msg.YPos));
end;

進一步參考http://www.cryer.co.uk/brian/delphi/howto_capture_onmove_event.htm

===================引 用 pedro756901 文 章===================
procedure OnMove(var Msg: TWMMove); message WM_MOVE;
procedure TForm1.OnMove(var Msg: TWMMove);
begin
Memo1.Lines.Add('X: ' IntToStr(msg.XPos) ' Y: ' IntToStr(msg.YPos));
end;
進一步參考http://www.cryer.co.uk/brian/delphi/howto_capture_onmove_event.htm
=========================================================

謝謝 pedro756901 大大的分享!!
procedure OnMove(var Msg: TWMMove); message WM_MOVE; <--關於這一行，在bc b 要如何宣告??
謝謝!!

我手上沒有BCB環境可測

請參考
http://topic.csdn.net/t/20020408/09/629915.html
http://dev.hackbase.com/hackbase33/how523980.htm