下面为VCL中的源码 procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED; procedure TCustomEdit.CMTextChanged(var Message: TMessage); begin inherited; if not HandleAllocated or (GetWindowLong(Handle, GWL_STYLE) and ES_MULTILINE <> 0) then Change; end;
procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;
procedure TCustomEdit.CMTextChanged(var Message: TMessage);
begin
inherited;
if not HandleAllocated or (GetWindowLong(Handle, GWL_STYLE) and
ES_MULTILINE <> 0) then Change;
end;