mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-28 15:40:41 +02:00
lcl: don't call TextChanged directly, use CM_TEXTCHANGED notification instead
git-svn-id: trunk@20060 -
This commit is contained in:
parent
7f29518b52
commit
9b7b96648b
@ -3756,7 +3756,7 @@ procedure TControl.RealSetText(const Value: TCaption);
|
||||
begin
|
||||
if RealGetText = Value then Exit;
|
||||
FCaption := Value;
|
||||
TextChanged;
|
||||
Perform(CM_TEXTCHANGED, 0, 0);
|
||||
end;
|
||||
|
||||
procedure TControl.TextChanged;
|
||||
|
Loading…
Reference in New Issue
Block a user