opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Bugfix: fix issue #1055.

Browse Source
This commit is contained in:
rosenfield.albert
2009-03-12 21:32:28 +00:00
parent faf93622b3
commit 1980f92cb1
1 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
source/connections.pas
View File

@ -43,6 +43,7 @@ type
btnDelete: TToolButton; btnDelete: TToolButton;
btnSaveAs: TToolButton; btnSaveAs: TToolButton;
btnEditDesc: TButton; btnEditDesc: TButton;
procedure CreateParams(var Params: TCreateParams); override;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure btnSaveAndConnectClick(Sender: TObject); procedure btnSaveAndConnectClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
@ -71,6 +72,14 @@ implementation
{$R *.DFM} {$R *.DFM}
procedure Tconnform.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.ExStyle := Params.ExStyle OR WS_EX_APPWINDOW;
Params.WndParent := GetDesktopWindow;
end;
{** {**
FormCreate FormCreate
} }