Save As Penceresi

[u8300693]

Selam Arkadaşlar.
Save As Dialog penceresini kod ile nasıl getirebilirim.

Teşekkürler

[fahrettin]

Dialogs Tab'ının içinde Save Dialog var. Bu componenti kullanarak işinizi görebilirsiniz.

Kod: Tümünü seç

SaveDialog1.Execute

[rsimsek]

son birşey de ben ekliyeyim;

uses ta Dialogs uniti varken aşağıdaki kod pratik kullanılabilir.

Kod: Tümünü seç

  with TSaveDialog.Create(Application) do
  begin
    Title := 'Sorgulama scriptini kaydet';
    Filter := 'Script dosyaları|*.sql|Tüm dosyalar|*.*';
    DefaultExt := 'sql';
    FilterIndex := 0;
    if Execute then
    begin
//      if (not FileExists(FileName)) or (EvetHayir('Var olan dosya üzerine yazılsın mı?')) then  // dosya var mı kontrolu yapılabilir.
        Memo1.Lines.SaveToFile(FileName);
    end;
    Free;
  end;