Главная страница
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.053 c
2-1154612736
yon
2006-08-03 17:45
2006.08.27
Прорисовка в StringGrid


6-1144146711
WebSqlNeederr
2006-04-04 14:31
2006.08.27
Закрыть вылетающееся окошко ошибки ИЕ, вернее кликнуть на ОК


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


2-1154665343
MSVN
2006-08-04 08:22
2006.08.27
TrackBar и время


15-1154290719
ronyn
2006-07-31 00:18
2006.08.27
HTML