mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-10 06:08:17 +02:00
LCL: fixed calling of wrong inherited method in TCustomEdit.KeyUpAfterInterface(). fixes #17332
git-svn-id: trunk@27250 -
This commit is contained in:
parent
42a3b3918b
commit
bf1bdb52a7
@ -425,7 +425,7 @@ end;
|
||||
|
||||
procedure TCustomEdit.KeyUpAfterInterface(var Key: Word; Shift: TShiftState);
|
||||
begin
|
||||
inherited KeyUp(Key, Shift);
|
||||
inherited KeyUpAfterInterface(Key, Shift);
|
||||
if Key = VK_RETURN then
|
||||
begin
|
||||
EditingDone;
|
||||
|
Loading…
Reference in New Issue
Block a user