save as dialog uses?

[King Lui]

Hallo ich wollte nen sage as dialog verwenden und zwar den hier

Delphi-Quellcode:

if SaveDialog1.Execute then
      begin
           Edit1.Text := SaveDialog1.FileName;
      end;
ShowMessage(SaveDialog1.FileName);

aber es wird das savedialog unterstrichen, aber warum? was brauch ich da für nen ding bei uses?

[dahead]

wie wärs wenn du das wort "savedialog1" markierst und mal f1 (hilfe) drückst? dort steht dann, aus welcher unit diese klasse abstammt.

---

du brauchst die unit dialogs soweit ich mich entsinne.

[Matze]

Zitat:

Zitat von King Lui

[...] aber warum? was brauch ich da für nen ding bei uses?

Für mich sieht es so aus, als ob du den SaveDialog auf's Formular gezogen hast. Ist dies der Fall, musst du keine Unit mehr einbinden.

Delphi unterstreicht ab und zu Dinge, die korrekt sind. Wenn du das Dokument erneut öffnest, müsste es wieder normal sein. ;)

[King Lui]

wenn ich dannach suche erhalte ich sehr viele ergebnisse ich hab das hier gefunden

TCustomAction

aber das unterstrichelt er mit auch wenn ich es bei uses hinzufüge....

[King Lui]

Zitat:

Zitat von Matze

Zitat:

Zitat von King Lui

[...] aber warum? was brauch ich da für nen ding bei uses?

Für mich sieht es so aus, als ob du den SaveDialog auf's Formular gezogen hast. Ist dies der Fall, musst du keine Unit mehr einbinden.

Delphi unterstreicht ab und zu Dinge, die korrekt sind. Wenn du das Dokument erneut öffnest, müsste es wieder normal sein. ;)

das gibts als komponente zum reinziehen? wo? ich hatte vor 3 wochen mal beo dsdt gefragt, und die meinten, dass es keine komponente gibt?

[Matze]

Zitat:

Zitat von King Lui

das gibts als komponente zum reinziehen? wo? ich hatte vor 3 wochen mal beo dsdt gefragt, und die meinten, dass es keine komponente gibt?

:shock:

Btw: Also einfach so könntest du den Dialog nicht verwenden, den müsstest du sonst manuell erzeugen.


Die Komponente SaveDialog findest du im Register Dialoge.

[dahead]

du sollst ja auch nicht TCustomaction zu den uses hinzufügen, sondern nur die unit die TSaveDialog benötigt (was delphi wie matze gesagt hat egtl. automatisch tut).

probier doch mal folgenden code ohne die komponente auf der form:

Delphi-Quellcode:

var
  SD: TSaveDialog;
begin
  SD := TSaveDialog.Create(Self);
  with SD do
    begin
      Title := 'Datei speichern als...';
      Filter := 'Alle Dateien (*.*)|*.*';
      DefaultExt := '.txt';
      if Execute then
         ShowMessage(Filename);
    end;
   SD.Free;
end;

edit: kein roter kasten (krk)

[King Lui]

Zitat:

Zitat von Matze

Zitat:

Zitat von King Lui

das gibts als komponente zum reinziehen? wo? ich hatte vor 3 wochen mal beo dsdt gefragt, und die meinten, dass es keine komponente gibt?

:shock:

Btw: Also einfach so könntest du den Dialog nicht verwenden, den müsstest du sonst manuell erzeugen.


Die Komponente SaveDialog findest du im Register Dialoge.

ah danke ich hab das reingezogen und er hat es auch automatisch bei den uses hinzugefügt, aber es geht nicht er unterstreicht es und sagt
"Unitname 'TCustomAction' kann nicht aufgelöst werden in Zeile 7 (7:22)

[Matze]

Zitat:

Zitat von King Lui

"Unitname 'TCustomAction' kann nicht aufgelöst werden in Zeile 7 (7:22)

Das ist sicher das, was du manuell eingefügt hast, lösche das wieder raus.


PS: Mit "manuell erzeugen" meinte ich genau das, was dahead nun gepostet hat. Wobei Resourcenschutzblöcke (try - finally) fehlen. :stupid:

[Luckie]

Wird es nur unterstrichen oder kommt auch eine fehlermeldung vom Kompiler beim Kompilieren? Wenn ja, wie lautet sie? Ich vermute mal, dass du den Code in einer selbst geschriebenen Prozedur benutzt, die keine Methode deiner TForm Klasse ist. Und die Fehlermeldung sollte lautet: "Unbekannter Bezeichner" oder so ähnlich. Entweder schreibst du jetzt Form1 davor oder machst die Prozedur zu einer Methode deiner Form Kalsse:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure MeineProc;  // <-- !!!
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MeineProc;  // <-- !!!
begin

end;

end.

Dann sollte innerhalb der Prozedur auch die Komponente SaveDialog1 bekannt sein.