TOpenDialog und Button Captions

[cookie22]

hallo,

ich möchte in meinem programm die button captions in einem topendialog ändern.

das mache ich folgendermassen:

Delphi-Quellcode:

procedure TForm1.OpenDialog1Show(Sender: TObject);
begin
  SetDlgItemText(GetParent(OpenDialog1.Handle), IDOK, PChar('New &Open'));
  SetDlgItemText(GetParent(OpenDialog1.Handle), IDCANCEL, PChar('New &Cancel'));
end;

das funktioniert auch, nur leider wird der dialog unter windows vista/7 nicht mehr im neuen stil dargestellt. er sieht wie in windows xp aus.

das passiert sobald ich im onshow event was mache, jemand ne idee wie man das vermeiden kann.

gruß,
cookie

[Spezi]

Hallo,

soweit ich weiß gibt es seit Delphi 2007 noch die Dialoge TFileOpenDialog bzw. TFileSaveDialog.

Die sind dann im Windows Vista/7 Stil.

Edit:
Link dazu noch gefunden: http://www.delphi-treff.de/tutorials.../neue-dialoge/

MfG
spezi

[cookie22]

Zitat von Spezi:

Hallo,

soweit ich weiß gibt es seit Delphi 2007 noch die Dialoge TFileOpenDialog bzw. TFileSaveDialog.

Die sind dann im Windows Vista/7 Stil.

Edit:
Link dazu noch gefunden: http://www.delphi-treff.de/tutorials.../neue-dialoge/

MfG
spezi

ja die kenne ich, nur leider lässt sich da nur die caption vom ok button ändern.