mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 21:39:49 +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
|
||||
begin
|
||||
Key := 0;
|
||||
ButtonPanel1.OKButton.Click;
|
||||
if ButtonPanel1.OKButton.Enabled then
|
||||
ButtonPanel1.OKButton.Click;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user