Mein lieber Hartfried, so ein bißchen was muß man hin & wieder auch selber programmieren. Schau dir doch einmal die Beispiele zu TSavePictureDialog an. Dann wirst du vielleicht bemerken, daß ein solcher Dialog auch abgebrochen werden kann, weshalb man selbigen gewöhnlich so verwendet:
Delphi-Quellcode:
If SavePictureDialog1.Execute Then
Begin
...
End;
Denn dabei, du wirst es vielleicht inzwischen bemerkt haben, handelt es sich um eine Function, die als Result einen Boolean zurückliefert. Wenn der Anwender den Dialog abbricht, wird False zurückgeliefert. Enthält das Property FileName einen gültigen Wert oder ist die Stringlist Files gefüllt, wird True zurückgegeben.
Nun mußt du aber auch das Property FileName in deinem Programm verwenden, denn wenn du einfach nur die Zeile mit dem SaveToFile auskommentierst, hast du dafür ja noch keinen Ersatz. Statt 'name123.bmp' nimmst du nun SavePictureDialog1.FileName, und schon funktioniert's mit dem Speichern. Steht übrigens alles in der Online-Hilfe, die ich hier noch einmal mit eigenen Worten ausführlichst wiedergebe.
Und, Hartfried, setze doch bitte deine Codezeilen, die du hier postest, in Delphi-Tags. Am einfachsten erreichst du das, indem du deine Code-Zeilen im Foren-Editor mit der Maus markierst und dann auf den Delphi-Helm klickst.