Dialog Dateierweiterung anpassen

**geskill**

Nabend,
Ich möchte bei einem Dialog (TSavePictureDialog) die Dateierweiterung (FileExtension) automatisch
an die gewählte Anpassen.

z.b.
Dateiname.......: Hallo.jpg
Dateierweiterung: *.jpg

Jetzt ändert der User die Dateierweiterung auf '*.png', jetzt soll
auch gleichzeitig der FileName angepasst werden.

Über das Ereigniss "...TypeChange(Sender: TObject)" werde ich informiert, wenn der Benutzer
die Dateierweiterung ändert.

Über "Dialog.FilterIndex" bekomme ich auch die Dateierweiterung, aber ich kann den Dateinamen
nicht ändern.

z.b.

markieren

Delphi-Quellcode:

			SavePictureDialog.FileName := ExtractFileDir(SavePictureDialog.FileName) + '\Hallo.png';

ShowMessage(SavePictureDialog.FileName); // jedoch hat sich hier überhaupt nichts geändert!!!

Ich habe per google schon ein wenig gesucht, jedoch erfolglos, ich bin mir aber sicher das
es irgendwie funktionieren muss, weil Adobe macht dies in seinen Programmen auch (Dialoge sind aber vllt auch eigene???)

Naja bin mal gespannt...

Dialog Dateierweiterung anpassen

Dialog Dateierweiterung anpassen

Forumregeln