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