| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

OpenDialog [D7, XP]

max1991 ©   (2006-08-05 11:17:00) 

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

код такой:

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

---

max1991   (2006-08-05 11:45:00) [1]

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

---

Leonid Troyanovsky   (2006-08-05 11:39:00) [2]

> 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.

---

Kolan   (2006-08-05 11:38:00) [3]

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

А так?

---

max1991   (2006-08-05 11:35:00) [4]

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

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

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

---

max1991   (2006-08-05 11:29:00) [5]

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

---

Leonid Troyanovsky   (2006-08-05 11:22:00) [6]

> 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.

---

Наверх