Конференция "Начинающим" » Как задать SaveDialog.FilterIndex в SaveDialogShow? [D7]
 
  • Саня © (08.02.18 16:38) [0]
    Примерчик

    unit Unit1;

    interface

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

    type
     TForm1 = class(TForm)
       SaveDialog1: TSaveDialog;
       Button1: TButton;
       procedure Button1Click(Sender: TObject);
       procedure SaveDialog1Show(Sender: TObject);
     private
       { Private declarations }
     public
       { Public declarations }
     end;

    var
     Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.Button1Click(Sender: TObject);
    begin
     SaveDialog1.Filter := 'Text File (*.txt)|*.txt|CSS File (*.css)|*.css';

     //SaveDialog1.FileName := 'temp.txt';
     SaveDialog1.FileName := 'temp.css';

     if ExtractFileExt(SaveDialog1.FileName) = '.txt' then
       SaveDialog1.FilterIndex := 1;

     if ExtractFileExt(SaveDialog1.FileName) = '.css' then
       SaveDialog1.FilterIndex := 2;

     SaveDialog1.Execute;
    end;

    procedure TForm1.SaveDialog1Show(Sender: TObject);
    begin
    {
     if ExtractFileExt(SaveDialog1.FileName) = '.txt' then
       SaveDialog1.FilterIndex := 1;

     if ExtractFileExt(SaveDialog1.FileName) = '.css' then
       SaveDialog1.FilterIndex := 2;
    }

    end;

    end.



    -------------------------------------------------------
    if ExtractFileExt(SaveDialog1.FileName) = '.txt' then
       SaveDialog1.FilterIndex := 1;

     if ExtractFileExt(SaveDialog1.FileName) = '.css' then
       SaveDialog1.FilterIndex := 2;

    Как это сделать с OnShow?
  • Z (08.02.18 17:16) [1]
    гм... А нафига вообще так делать? Какая цель-то?
 
Конференция "Начинающим" » Как задать SaveDialog.FilterIndex в SaveDialogShow? [D7]
Есть новые Нет новых   [118232   +29][b:0][p:0.001]