知道就算了,不知道的看一看.活跃气氛.

[CACACACACA]

有两种导致Edit.onchange事件触发

一是有按键输入时
二是给Text属性赋值时.

如何区分是哪一种?


答案:
判断 Edit1.Modified

[c_hua6280]

[Quote=引用 1 楼 jjwwang 的回复:]
晕啊! 设置字体颜色无效!
[/Quote]

好好的呀

您再试试。

[CACACACACA]

晕啊! 设置字体颜色无效!

[kv2002]

今儿都4.2号了，还待分数提到2分

[haitao]

像checkbox/combobox/pagecontrol的改变呢？

[sanguomi]

看了VCL的源代码，VCL的是用TControl里的SetText方式来修改的，然后SetText发送消息方式,然后触发消息，然后发送消息给Edit修改

procedure TControl.SetTextBuf(Buffer: PChar);
begin
  Perform(WM_SETTEXT, 0, Longint(Buffer));
  Perform(CM_TEXTCHANGED, 0, 0);
end;

    WM_SETTEXT:
        begin
          P := StrNew(PChar(LParam));
          StrDispose(FText);
          FText := P;
          SendDockNotification(Msg, WParam, LParam);
        end;

用早天你那个拦截类方法SetText应该可以，手工输入应该是不会调用SetText的
直接走消息了
procedure TWinControl.DefaultHandler(var Message);
if Msg = WM_SETTEXT then
SendDockNotification(Msg, WParam, LParam);

[slmax1]

我就是只来拿10分的