Set focus on filter box when SQL help dialog opens. See http://www.heidisql.com/forum.php?t=17294

This commit is contained in:
Ansgar Becker
2015-01-01 17:41:32 +00:00
parent a87e30cc94
commit b1546db09d
2 changed files with 8 additions and 0 deletions

View File

@@ -50,6 +50,7 @@ type
procedure editFilterChange(Sender: TObject);
procedure editFilterRightButtonClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
@@ -268,6 +269,12 @@ begin
end;
procedure TfrmSQLhelp.FormShow(Sender: TObject);
begin
editFilter.SetFocus;
end;
procedure TfrmSQLhelp.ButtonOnlinehelpClick(Sender: TObject);
begin
// Link/redirect to mysql.com for further help