TOpenDialog ( TCommonDialog ) Style und größe verändern

[Sven Janssen]

Delphi-Quellcode:

.
.
private
    { Private-Deklarationen}
    procedure MoveDialog(var Msg: TMessage); message WM_USER;
.
.
procedure Tdvorschau.MoveDialog(var Msg: TMessage);
var hParent:Thandle;
    rect: TRect;
const breite = 250;
      hoehe = 205;
begin
    hParent := GetParent(msg.wparam);
    GetWindowRect(hParent, rect);
    SetWindowPos(hParent, 0,
        rect.Left - ( breite div 2),
        rect.Top -(hoehe div 2) ,
        rect.Right - rect.Left+breite,
        rect.Bottom - rect.Top+hoehe,
        SWP_SHOWWINDOW);

end;

procedure Tdvorschau.OpenDialog1Show(Sender: TObject);
begin
    PostMessage(Self.Handle, WM_USER,(Sender as TOpenDialog).Handle, 0);
end;

Das andere habe ich nicht hinbekommen, da ich die Components von TOpenDialog nicht abgreifen kann. ComponentesCount ist 0.

Sven