Howto Use TSaveDialog/ru

Как использовать TSaveDialog

Простой пример:

1. Поместите виджет SaveDialog на форму (в любое место, он все равно не будет отображаться).

  
 (Вторая слева иконка на Dialogs tab)

2. Добавьте на форму компонент Memo.

3. Добавьте на форму кнопку.

Инспектор объектов отображает свойства кнопки Button1. Измените свойство Caption, которое сейчас 'Button1', на 'Сохранить'. Нажмите на вкладку События в Инспекторе объектов. Выберите строку с текстом OnClick: справа появится маленькая кнопка с тремя точками. Нажмите на эту кнопку и в редакторе исходного кода автоматически создастся выбранное событие. Допишите код:

 procedure TForm1.Button1Click( Sender: TObject );
 begin
   if SaveDialog1.Execute then
    Memo1.Lines.SaveToFile( SaveDialog1.Filename );
 end;

Метод Execute отображает диалог сохранения файла. Возвражает true если пользователь выбрал сохранение файла, false если пользователь отменил сохранение.

Свойство Filename возвращает полный путь к файлу, включая имя диска.

См. также

• Howto Use TOpenDialog/ru
• Dialogs tab
• TButton
• TMemo

From the Free Pascal wiki, page "Howto Use TSaveDialog/ru", as it stood on 2020-02-17 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.