OpenDialog

← →
max1991 (2006-08-05 11:17) [0]

Уважаемые мастера, подскажите пожалуйста, как избавиться от диалога подтверждения выбранного файла, после того как в OpenDialog файл был выбран файл и нажата кнопка - Открыть?

код такой:

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
ShowMessage(OpenDialog1.FileName);
ListBox1.Items.LoadFromFile(OpenDialog1.FileName);
end;
end;

← →
Leonid Troyanovsky © (2006-08-05 11:22) [1]

> max1991 (05.08.06 11:17)

> Уважаемые мастера, подскажите пожалуйста, как избавиться
> от диалога подтверждения выбранного файла, после того как
> в OpenDialog файл был выбран файл и нажата кнопка - Открыть?

procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then begin // ShowMessage(OpenDialog1.FileName); ListBox1.Items.LoadFromFile(OpenDialog1.FileName); end; end;

--
Regards, LVT.

← →
max1991 (2006-08-05 11:29) [2]

огромное спасибо

← →
max1991 (2006-08-05 11:35) [3]

может ещё подскажите как при открытии SaveDialog-а в поле было имя по умолчанию.

procedure TForm1.Button2Click(Sender: TObject);
begin
if SaveDialog1.Execute then
begin
SaveDialog1.FileName:="xxx";
ListBox1.Items.SaveToFile(SaveDialog1.FileName+ ".txt");
end;
end;

почемуто не помогает.

← →
Kolan © (2006-08-05 11:38) [4]

procedure TForm1.Button2Click(Sender: TObject); begin SaveDialog1.FileName:="xxx"; if SaveDialog1.Execute then begin ListBox1.Items.SaveToFile(SaveDialog1.FileName+ ".txt"); end; end;

А так?

> max1991 (05.08.06 11:35) [3]

> может ещё подскажите как при открытии SaveDialog-а в поле
> было имя по умолчанию.

procedure TForm1.Button2Click(Sender: TObject); begin SaveDialog1.FileName:="xxx"; if SaveDialog1.Execute then begin ListBox1.Items.SaveToFile(SaveDialog1.FileName+ ".txt"); end; end;

--
Regards, LVT.

← →
max1991 (2006-08-05 11:45) [6]

спасибо за помощь, всё работает

OpenDialog Найти похожие ветки