bezeichnungen bei standard-dialogen ändern, aber wie?

[Marco Steinebach]

Hallo zusammen,
Der in #3 beschriebene Code von Teebee funktioniert, fast, einwandfrei. Es gibt nur ein kleines Problem, das ich ehrlichgesagt fast für einen Bug in Delphi halte.
Wenn ich versuche, den Standardschalter in TSaveDialog zu ändern, interessiert das Delphi herzlich wenig.
Folgender Code, sollte, ja eigentlich funktionieren, tut er aber nicht:

Delphi-Quellcode:

procedure TForm1.DialogSpeichernShow(Sender: TObject);
var
  Dlg: TSaveDialog;
  DlgWnd: hWnd;
begin
  Dlg := Sender as TSaveDialog;
  if ofOldStyleDialog in Dlg.Options then
    DlgWnd := Dlg.Handle
  else
    DlgWnd := GetParent(Dlg.Handle);
  if GetParent(DlgWnd) <> Application.Handle then exit;
  SetDlgItemText(DlgWnd, idok, 'SpeicherTest!'); // klappt nicht! das versteh ich nicht!
  SetDlgItemText(DlgWnd, idCancel, 'AbbrechenTest!'); // klappt wunderbar!
end;

Alle anderen Konstanten funktionieren wunderbar, nur der Speichern-Schalter nicht. In TOpenDialog geht übrigens das ändern des Öffnen-Schalters ohne Probleme.
Hat irgendwer 'ne Idee, an was das liegen könnte?
Ich hab die 3 Files mal als projekt hier drangehängt. Funktioniert das vielleicht blos unter D5 nicht?
Bitte um Hilfe!!
Viele Grüße
Marco