Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.08.27;
Скачать: 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 вся ветка

Текущий архив: 2006.08.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.062 c
15-1154067265
Layner
2006-07-28 10:14
2006.08.27
Как в 2000/2003 включить логирование входов/выходов юзеров


2-1155146390
ArtemESC
2006-08-09 21:59
2006.08.27
Окаймление компонентна


3-1149146961
vadim14
2006-06-01 11:29
2006.08.27
copy tables with metadata


2-1154962705
Alral
2006-08-07 18:58
2006.08.27
Poluchenie simvola v TMemo


2-1153930171
Homo Sapiens
2006-07-26 20:09
2006.08.27
Плейлист