828
社区成员
发帖
与我相关
我的任务
分享如何给好几个控件共用的事件里的变量赋值？
我预写好了一个事件，将几个EDIT控件的ONCHANGE事件指明用它。但问题出来了，我想当不同的EDIT调用它时给事件中某个变量赋不同的值，怎么做呢？
比如事件中有一个变量A1,当EDIT1调用时A1:=1,当EDIT2调用时A1:=2;怎么办？
比如事件中有一个变量A1,当EDIT1调用时A1:=1,当EDIT2调用时A1:=2;怎么办？
...全文
请发表友善的回复…
发表回复
sanjianxia 2002-02-26
- 打赏
- 举报
我觉得写一个过程最方便.
111222 2002-02-26
- 打赏
- 举报
只需要人民币20元，
你就可以获得本灌水机的程序和Visual C＋＋源代码，
并获得永久性技术支持。
还等什么？灌水等着你！
就在今夜！元宵佳节！
eulb 2002-02-25
- 打赏
- 举报
if Sender is TEdit then
if (Sender as Tedit).Tag =...then ..
or
if (sender as Tedit).name =... then
动态创建的控件也可以用的
if (Sender as Tedit).Tag =...then ..
or
if (sender as Tedit).name =... then
动态创建的控件也可以用的
NightCloud 2002-02-25
- 打赏
- 举报
用Tag属性好，借用一下Liusp的代码
IF SENDER.Tag=1 THEN BEGIN
A1 := 1;
END ELSE IF SENDER.Tag = 2 THEN BEGIN
A1 := 2;
END ....
整型比较更准确和快捷
IF SENDER.Tag=1 THEN BEGIN
A1 := 1;
END ELSE IF SENDER.Tag = 2 THEN BEGIN
A1 := 2;
END ....
整型比较更准确和快捷
Liusp 2002-02-25
- 打赏
- 举报
给你要创建好的控件约定好名称，在创建时指定NAME属性，并指定每个EDIT的OnChange := MyOnChange（你自定义的事件处理过程)
在MyOnChange中再按先前的约定名称做判断；
或者约定Tag属性也行
在MyOnChange中再按先前的约定名称做判断；
或者约定Tag属性也行
outer2000 2002-02-25
- 打赏
- 举报
动态创建就没有名字了啊？
Liusp 2002-02-25
- 打赏
- 举报
IF SENDER=EDIT1 THEN BEGIN
A1 := 1;
END ELSE IF SENDER = EDIT2 THEN BEGIN
A1 := 2;
END ....
A1 := 1;
END ELSE IF SENDER = EDIT2 THEN BEGIN
A1 := 2;
END ....
ePing 2002-02-25
- 打赏
- 举报
事件中判断Sender是哪个，就赋哪个值
outer2000 2002-02-25
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
begin
IF SENDer=button1 then
showmessage('asdf');
end;
begin
IF SENDer=button1 then
showmessage('asdf');
end;
Liujc 2002-02-25
- 打赏
- 举报
使Tag标志,通过判断Tag值进行不同操作
hzzkf 2002-02-25
- 打赏
- 举报
问题是我的所有EDIT都是动态创建的，怎么办呢？
outer2000 2002-02-25
- 打赏
- 举报
用SENDER啊？看看它是哪个对象。比如
IF SENDER=EDIT1 THEN。。。
IF SENDER=EDIT1 THEN。。。
