Entwickler-Ecke :: Thema anzeigen - [VisualCLX] TSaveDialog aufrufen

ConditionZero - Di 03.04.07 19:05
Titel: TSaveDialog aufrufen

tach,
möcht in meine form ein SaveDialog aufrufen der auf Button1.Click aufgehen soll.

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.SaveAsClick(Sender: TObject);
begin

Create(self:TSaveDialog);
TSaveDialog.Execute;

end;

aber das klappt irgendwie nicht wie ich will, was ist da falsch?

LG

Fighter#1 - Di 03.04.07 19:30

Probiers so :

Delphi-Quelltext

1:
2:
3:
4:
5:

  With TSaveDialog.Create(self) do begin
     If Execute Then begin
       ShowMessage(Filename);
     end;
  end;

Dein Fehler : du hast einen TSaveDIalog einfach so erstellt ohne ihn zu benutzen, TSaveDialog ist nach Create auch noch keine Variable!
Du musst das "kombineren"

Fighter#1 - Mi 04.04.07 11:58

Warum denn das JayEff???
Man muss nich aufs Formular ziehen, das geht mit Filter so:
Also so "dynamisch" ist das doch viel geschickter!
Filter funktioniert so:
Filter:='Bitmap|*.bmp';
Der User wählt Dateityp Bitmap und sieht alle Dateien mit *.bmp.

Um mehr als einen Dateityp einzutragen einfach mehrere solcher Trennzeichen nutzen:
Filter:='Bitmap|*.bmp|Jpegs|*.jpg';

Und wenn man jetzt noch mehrere Dateiendungen pro Dateityp nutzen woll sieht das so
aus:
Trennzeichen für Endungen ist ein Semikolon
Filter:='Bilder|*.jpg;*.bmp|Lieder|*.mp3;*.wav';

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

  With TSaveDialog.Create(self) do begin
    Filter:='Bilder|*.bmp;*.jpg;*.gif|Lieder|*.mp3;*.wav';  
     If Execute Then begin
       ShowMessage(Filename);
     end;
  end;

noidic - Mi 04.04.07 12:12

Ich hab heut irgendwie meinen Klugscheißertag...

auf Konstrukte wie 'with TSomeClass.create do' sollte man möglichst verzichten, stattdessen das erzeugte Objekt in eine Variable schreiben und damit arbeiten.

Grund:

Bei einer Erweiterung des Code kann man auch außerhalb des with-Blocks auf das Objekt zugreifen. Ausserdem werden diese with-Geschichten bei längerem Code schnell unübersichtlich.

In unseren Programmierrichtlinien ist das Konstrukt deshalb auch verboten, hat zu oft zu Fehlern geführt wie auch hier, der Dialog wird hier niemals freigegeben und schimmelt im Speicher rum.

Bitte das nicht als Angriff verstehen, nur als Anregung :)

Chatfix - Mi 04.04.07 12:16

Nur der Form halber, es ist üblich die Benutzen Filter nochmal in Klammern beim Name aufzuführen.
Ebenfalls wäre eventuell ein "Alle Dateien" sinnvoll.

Es würde dann so aussehen:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

  With TSaveDialog.Create(self) do begin 
    Filter:='Bilder (*.bmp;*.jpg;*.gif)|*.bmp;*.jpg;*.gif|Lieder (*.mp3;*.wav)|*.mp3;*.wav|Alle Dateien (*.*)|*.*';   
     If Execute Then begin 
       ShowMessage(Filename); 
     end; 
  end;

Mindforce - Mi 04.04.07 12:35

HI,

erstell doch einfach erstmal ein SaveDialog in der Liste "Dialoge".

Dann einfach den Filter im OM ändern und dann

Delphi-Quelltext

1:	SaveDialog1.Execute;

Mindforce

JayEff - Mi 04.04.07 21:31

Fighter#1 hat folgendes geschrieben:

Warum denn das JayEff???
Man muss nich aufs Formular ziehen, das geht mit Filter so:
Also so "dynamisch" ist das doch viel geschickter!

Mag ja sein, aber ... :