Forum: Object-Pascal / Delphi-Language
by DeddyH,
12. Okt 2011
Ungetestet:
procedure TForm1.btnSaveClick(Sender: TObject);
var
jpg: TJpegImage;
begin
if SaveDialog1.Execute then
begin
jpg := TJpegImage.Create;
Try
jpg.Assign(Image1.Picture.Bitmap);
Forum: Object-Pascal / Delphi-Language
by DeddyH,
12. Okt 2011
Schau doch in die Komponentenpalette, da muss es einen Reiter "Dialoge" geben. Auf diesem sollte der SaveDialog zu finden sein. Ist der Reiter nicht da, sind vermutlich nicht alle Packages geladen.
Forum: Object-Pascal / Delphi-Language
by DeddyH,
12. Okt 2011
Das verstehe ich im Moment nicht, Dein Dialog wird ja wohl SaveDialog1 heißen, sonst würde ja gar nicht erst kompiliert werden. Bringt es etwas, wenn Du den Code ausschneidest, kompilierst und anschließend wieder einfügst?
Forum: Object-Pascal / Delphi-Language
by DeddyH,
12. Okt 2011
Hättest Du doch einfach nachgefragt :zwinker:
Forum: Object-Pascal / Delphi-Language
by DeddyH,
12. Okt 2011
Wie bringst Du denn einen Button oder ein Edit auf Dein Formular? Genauso geht das auch mit dem Dialog, das ist eine ganz normale Komponente.
Forum: Object-Pascal / Delphi-Language
by DeddyH,
12. Okt 2011
Komponentenpalette - Reiter Dialoge - TSaveDialog auswählen und aufs Formular damit.