請問各位大大：
小弟目前有一個問題想請教各位大大一下，就是小弟使用一個物件（如：DBGrid）它有兩個事件（如：KeyDown與MouseDown）。
問題：
我再KeyDown事件中寫了一段程式，現在在MouseDown事件中也需寫跟KeyDown相同的程式，想請問是否可以直接套用KeyDown這物件即可完成，而不需再重複那段程式一遍。
如果可以套用，可以指點一下小弟該如何應用嗎？

您好,

要看情況,
如果您 keydown 的程式內容沒有用到 keydown 的參數, 那就
1. 把原本 keydown 的程式內容寫成一個新的 procedure 例如叫 mykeydown;
2. keydown 改成呼叫 mykeydown
3. mousedown 也呼叫 mykeydown
這方法我曾用到 tbutton 的 o n c l i c k 上, 可否用在 keydown, mousedown 沒有實測過
請自行測測看

如果您 keydown 的程式內容要用到 keydown 的參數, 那 mousedown 應該沒有足夠的參數資訊來做keydown 的事情


===================引 用 lasterliu 文 章===================
請問各位大大：
小弟目前有一個問題想請教各位大大一下，就是小弟使用一個物件（如：DBGrid）它有兩個事件（如：KeyDown與MouseDown）。
問題：
我再KeyDown事件中寫了一段程式，現在在MouseDown事件中也需寫跟KeyDown相同的程式，想請問是否可以直接套用KeyDown這物件即可完成，而不需再重複那段程式一遍。
如果可以套用，可以指點一下小弟該如何應用嗎？

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄

其實很簡單
你把兩個事件都要做的事寫一支 procedure 程式
然後在 keydown 或 mouse事件上直接呼叫這支procedure 就好了
沒有什麼技巧啦!

例如:

private
procedure mycoderun;
...
...


TForm1.keydown(.....)
begin
if Key=xxx then mycoderun;
end;

TForm1.Mouse...
begin
mycoderun;
end;

謝謝st33chen及版主的解答，那小弟知道該怎麼做了，小弟會這麼問是看到.NET好像可以這樣用，才會詢問DELPHI有無此功能，若有應該如何使用?再次謝謝兩位大大的解答。

先寫一個function/procedure
再被他們call
delphi是可以的
還有,這做法就是function/procedure出現的原因

另外,也可以在設計上,直接把keydown和MouseDown事件指定為同一個procedure
(即在左邊的"設計箱?")