Скачать: CL | DM;

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;

А так?

---

← →
Leonid Troyanovsky ©   (2006-08-05 11:39) [5]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.063 c