如何给好几个控件共用的事件里的变量赋值？

Question

用SENDER啊？看看它是哪个对象。比如
IF SENDER=EDIT1 THEN

Answer 1

问题是我的所有EDIT都是动态创建的，怎么办呢？

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
IF SENDer=button1 then
showmessage('asdf');end;

Answer 3

使Tag标志,通过判断Tag值进行不同操作

Answer 4

事件中判断Sender是哪个，就赋哪个值

Answer 5

IF SENDER=EDIT1 THEN BEGIN
     A1 := 1;
END ELSE IF SENDER = EDIT2 THEN BEGIN
     A1 := 2; 
END ....

Answer 6

给你要创建好的控件约定好名称，在创建时指定NAME属性，并指定每个EDIT的OnChange :=  MyOnChange（你自定义的事件处理过程)
在MyOnChange中再按先前的约定名称做判断；
或者约定Tag属性也行

Answer 7

用Tag属性好，借用一下Liusp的代码
IF SENDER.Tag=1 THEN BEGIN
A1 := 1;
END ELSE IF SENDER.Tag = 2 THEN BEGIN
A1 := 2; 
END ....
整型比较更准确和快捷

Answer 8

if Sender is TEdit then
  if (Sender as Tedit).Tag =...then ..or 
  if (sender as Tedit).name =... then 动态创建的控件也可以用的

Answer 9

只需要人民币20元，你就可以获得本灌水机的程序和Visual C＋＋源代码，并获得永久性技术支持。还等什么？灌水等着你！就在今夜！元宵佳节！