Ich portiere gerade den
OpenDirDialog nach
nonVCL. Die Demo ist soweit fertig. Dabei hat mir das Win32API Tutorial von Luckie und Co., insbesondere das TreeView-Sample von Matthias geholfen. Nur beim Tuning habe ich ein paar Probleme.
Delphi-Quellcode:
{ Mittig über dem Hauptformular der Anwendung. }
poMainFormCenter:
begin
GetWindowRect(HInstance, ParentRect);
nLeft := ParentRect.Left + ((ParentRect.Right - ParentRect.Left) - fWidth) div 2;
nTop := ParentRect.Top + ((ParentRect.Bottom - ParentRect.Top) - fHeight) div 2;
MoveWindow(aWnd, nLeft, nTop, fWidth, fHeight, true);
end;
HInstance scheint nicht das richtige zu sein. Kann man an das
Handle kommen oder muss man das per Parameter mitgeben?
Delphi-Quellcode:
{ Mittig über dem als Owner angegebenen Formular. }
poOwnerFormCenter:
if ods.Owner <> 0
then begin
GetWindowRect(ods.Owner, ParentRect);
nLeft := ParentRect.Left + ((ParentRect.Right - ParentRect.Left) - fWidth) div 2;
nTop := ParentRect.Top + ((ParentRect.Bottom - ParentRect.Top) - fHeight) div 2;
MoveWindow(aWnd, nLeft, nTop, fWidth, fHeight, true);
end;