如題。謝謝。

用sendmessage(?,?,?);

不知道什麽參數，麻煩各位幫忙。

呵呵

------
The empty vessels make the greatest sound.

繼承至TWinControl的元件，也可以用其父類TControl方法
可以在Publish直接宣告

[code cpp]
__property On Mouse Down;
__property On Mouse Move;
__property On Mouse Up;
[/code]

PS:上面空格要去掉
就會在元件的事件裡面出現了

編輯記錄

WM_LBUTTONDOWN 
WM_LBUTTONUP

暫時按照 樓上所言：
sendmessage(edtmy.Handle,WM_LBUTTONDOWN,0,0 );
sendmessage(edtmy.Handle,WM_LBUTTONUP,0,0 );
還是不能實現。
原因是不是：元件需要獲取滑鼠的焦點？

3樓的做法出現錯誤，提示信息：[Error] Property 'On' does not exist in base class
還請指點。

------
The empty vessels make the greatest sound.

編輯記錄

WM_LBUTTONDOWN WM_LBUTTONUP 是可以。它會轉移焦點。
除非這個物件不能接收點擊或接收滑鼠事件。

或者在 WM_LBUTTONUP 代入 滑鼠位置。

xPos = LOWORD(lParam); // horizontal position of cursor
yPos = HIWORD(lParam); // vertical position of cursor

在Published:輸入

[code cpp]
__property On MouseUp;
__property On MouseDown;
__property On MouseMove;
[/code]

On 跟 MouseUp; MouseDown; MouseMove 中間的空格請去掉

===================引 用 allen-86 文 章===================
暫時按照 樓上所言：
sendmessage(edtmy.Handle,WM_LBUTTONDOWN,0,0 );
sendmessage(edtmy.Handle,WM_LBUTTONUP,0,0 );
還是不能實現。
原因是不是：元件需要獲取滑鼠的焦點？

3樓的做法出現錯誤，提示信息：[Error] Property 'On' does not exist in base class
還請指點。

編輯記錄