onchange如何区分在前台操作或是程序中赋值操作?

[cxmcxm]

delphi的edit只有一个onchange事件,没有专门区分interactivechange与programmaticchange,使用中如何区分是操作修改还是程序中赋值修改,试过modified属性,对dephi自己的tedit控件,好像没问题,但用第三方控ehlib的tdbnumerediteh,与tms的tadvedit区分不了,有什么办法区分两类事件?

[doloopcn]

这个没有区分的吧 如果是手工赋值，一般都得自己设置一个状态变量

[lyhoo163]

楼主一定要区别的话，在TEdit.Onchange事件时，找到是否有键盘录入。通过键盘录入，我想能能够区别的。

[findcsdn]

一般情况，为了程序的一致性，不管是谁导致了值变化，都要做相应处理。 但是如果楼主一定要区分，就只好增加一个标志字段，程序设置前，置一下位， onchange事件里检查这个标志， 设置完了取消标志位。

[蓝色光芒]

引用 2 楼 lyhoo163 的回复:

楼主一定要区别的话，在TEdit.Onchange事件时，找到是否有键盘录入。通过键盘录入，我想能能够区别的。

右键粘贴，就不算，是吧。哎 支持3楼

[骑牛上铂金]

引用 3 楼 findcsdn 的回复:

一般情况，为了程序的一致性，不管是谁导致了值变化，都要做相应处理。 但是如果楼主一定要区分，就只好增加一个标志字段，程序设置前，置一下位， onchange事件里检查这个标志， 设置完了取消标志位。

顶，设置一个变量，在onChange中判断下！

[三樱椒]

if

  var flag:Integer;        
procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
flag:=1;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
if (not edt1.Text='') and flag=1 then
begin
  ShowMessage('人为赋值');
end;
end;

应该是这个意思吧， flag变量为 标志

[三樱椒]

引用 6 楼 uhjiok123 的回复:

if

  var flag:Integer;        
procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
flag:=1;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
if (not edt1.Text='') and flag=1 then
begin
  ShowMessage('人为赋值');
end;
end;

应该是这个意思吧， flag变量为 标志

没有编译，意思是 edit中有内容，且在 在edit中按下键盘, (内容为字符型，不能是backspace之类的) 就是 用户人为的动作