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

[Sven Janssen]

Jemand ne Ahnung wie ich z.b einem TOpenDialog vor dem execute sagen kann welches Layout das ViewStyle hat oder wie groß das Fenster sein soll?
Ich würde es gern als ReportStyle öffnen und das Fenster ein paar Pixel größer Darstellen.

Sven

[Sven Janssen]

ok größe verändern habe ich heraus gefunden.

Bleibt also noch das verändern des viewStyles.
Wobei ich da momentan auch schon ne Idee hab.

Sven

[uschi]

willst du uns deine lösung vielleicht noch mitteilen?

wäre lieb.


gruß

[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