Difference between revisions of "Howto Use TSaveDialog/ru"

From Lazarus wiki
Jump to navigationJump to search
m (Fixed syntax highlighting; deleted category included in page template)
 
Line 22: Line 22:
 
[[IDE_Window:_Object_Inspector|Инспектор объектов]] отображает свойства кнопки Button1. Измените свойство Caption, которое сейчас 'Button1', на 'Сохранить'. Нажмите на вкладку События в Инспекторе объектов. Выберите строку с текстом OnClick: справа появится маленькая кнопка с тремя точками.  Нажмите на эту кнопку и в редакторе исходного кода автоматически создастся выбранное событие. Допишите код:
 
[[IDE_Window:_Object_Inspector|Инспектор объектов]] отображает свойства кнопки Button1. Измените свойство Caption, которое сейчас 'Button1', на 'Сохранить'. Нажмите на вкладку События в Инспекторе объектов. Выберите строку с текстом OnClick: справа появится маленькая кнопка с тремя точками.  Нажмите на эту кнопку и в редакторе исходного кода автоматически создастся выбранное событие. Допишите код:
  
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
  procedure TForm1.Button1Click( Sender: TObject );
 
  procedure TForm1.Button1Click( Sender: TObject );
 
  begin
 
  begin
Line 40: Line 40:
 
* [[Standard_tab#TButton| TButton]]
 
* [[Standard_tab#TButton| TButton]]
 
* [[Standard_tab#TMemo| TMemo]]
 
* [[Standard_tab#TMemo| TMemo]]
 
{{AutoCategory}}
 
[[Category:Lazarus/ru]]
 
[[Category:LCL/ru]]
 
[[Category:Components/ru]]
 
[[Category:Tutorials/ru]]
 

Latest revision as of 07:52, 17 February 2020

Deutsch (de) English (en) español (es) suomi (fi) français (fr) 日本語 (ja) polski (pl) русский (ru) slovenčina (sk)

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

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

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

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


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

 tmemo.png


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

 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 возвращает полный путь к файлу, включая имя диска.

См. также