mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-15 18:19:07 +02:00
Designer: Fix crash when pressing [Ctrl+Enter] with invalid name in rename dialog
This commit is contained in:
parent
f2e1746dfa
commit
d424ffceb9
@ -219,7 +219,8 @@ begin
|
|||||||
if (Key=VK_RETURN) and (ssCtrl in Shift) then
|
if (Key=VK_RETURN) and (ssCtrl in Shift) then
|
||||||
begin
|
begin
|
||||||
Key := 0;
|
Key := 0;
|
||||||
ButtonPanel1.OKButton.Click;
|
if ButtonPanel1.OKButton.Enabled then
|
||||||
|
ButtonPanel1.OKButton.Click;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user