一个页面上有几十个Tedit，在其keydown中做同一个过程，如何写最简便?

Question

编一个过程，所有的onkeydown事件都指向这个过程就可以了， 

Answer 1

对，用shit建连续选定控件，然后编写事件即可。

Answer 2

为其中一个TEdit控件编写OnKeyDown过程，然后选定所有的别的TEdit控件，为其OnKeyDown事件指定对应方法为开始编写OnKeyDown过程的那个控件的对应方法即可。

Answer 3

为其中一个TEdit控件编写OnKeyDown过程，然后选定所有的别的TEdit控件，为其OnKeyDown事件指定对应方法为开始编写OnKeyDown过程的那个控件的对应方法即可。

Answer 4

编一个过程，所有的onkeydown事件都指向这个过程就可以了， 
并且，在操作该控件时应该用TEdit(Sender)或(Sender As TEdit)
比如：
给该控件的Text属性赋值为“赋值”
TEdit(Sender).Text := '赋值';
(Sender As TEdit).Text := '赋值';
所有的onkeydown事件都指向写该语句的控件的onkeydown事件

Answer 5

同意zou5655(周围)的方法，也可以用.tag属性来做

Answer 6

zou5655的办法是最科学的。
同意楼上同志的发言！

Answer 7

理所当然用zou5655(周围)的方法

Answer 8

if ((sender = button1) and (key=32)) then
 showmessage('ok');
if ((sender = button2) and (key=32))then
 showmessage('thank');

Answer 9

直接指向onkeydown就是，难道不嫌复杂呀，不会吧。

Answer 10

直接指向onkeydown就是，难道还嫌复杂呀，不会吧。