opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix sporadic crashes in various calls to [TWinControl].SetFocus, with the new class helper .TrySetFocus

Browse Source
This commit is contained in:
Ansgar Becker
2023-10-16 20:50:10 +02:00
parent 79962b03fc
commit da4a327eee
3 changed files with 30 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
source/table_editor.pas
View File

@@ -2280,12 +2280,10 @@ begin
listCheckConstraints.EndEditNode;
// Ensure SynMemo's have focus, otherwise Select-All and Copy actions may fail
if PageControlMain.ActivePage = tabCREATEcode then begin
if SynMemoCreateCode.CanFocus then
SynMemoCreateCode.SetFocus;
SynMemoCreateCode.TrySetFocus;
end
else if PageControlMain.ActivePage = tabALTERcode then begin
if SynMemoALTERcode.CanFocus then
SynMemoAlterCode.SetFocus;
SynMemoAlterCode.TrySetFocus;
end;
UpdateSQLcode;
TExtForm.PageControlTabHighlight(PageControlMain);