Howto Use TSaveDialog/ru

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

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

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

 Image:Component_Palette_Dialogs.png 
 (Вторая слева иконка на Dialogs tab)

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

 Image:tmemo.png

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

 Image:tbutton.png

Инспектор объектов отображает свойства кнопки 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.