Difference between revisions of "TGroupBox/ru"
From Lazarus wiki
Jump to navigationJump to search (Created page with "{{TGroupBox}} '''TGroupBox''' image:tgroupbox.png является контейнером, который позволяет физически сгруппировать...") |
m (Added syntax highlighting) |
||
| Line 19: | Line 19: | ||
* сделайте элемент ''GroupBox2'' невидимым для пользователя с помощью RadioButton | * сделайте элемент ''GroupBox2'' невидимым для пользователя с помощью RadioButton | ||
** напишите следующую строку в обработчике события для каждого элемента ''RadioButton'': | ** напишите следующую строку в обработчике события для каждого элемента ''RadioButton'': | ||
| − | < | + | <syntaxhighlight lang=pascal> |
procedure TForm1.RadioButton1Change(Sender: TObject); | procedure TForm1.RadioButton1Change(Sender: TObject); | ||
begin | begin | ||
GroupBox2.Visible:=Radiobutton2.Checked; | GroupBox2.Visible:=Radiobutton2.Checked; | ||
end; | end; | ||
| − | </ | + | </syntaxhighlight> |
* добавьте ещё обработчики события для кнопок и вставьте в них такой код: | * добавьте ещё обработчики события для кнопок и вставьте в них такой код: | ||
| − | < | + | <syntaxhighlight lang=pascal> |
procedure TForm1.Button1Click(Sender: TObject); | procedure TForm1.Button1Click(Sender: TObject); | ||
begin | begin | ||
| Line 36: | Line 36: | ||
ShowMessage('Only administrators can click this button'); | ShowMessage('Only administrators can click this button'); | ||
end; | end; | ||
| − | </ | + | </syntaxhighlight> |
* запустите программу. Должно выглядеть так: | * запустите программу. Должно выглядеть так: | ||
Latest revision as of 05:52, 1 March 2020
│
Deutsch (de) │
English (en) │
suomi (fi) │
français (fr) │
русский (ru) │
TGroupBox 
является контейнером, который позволяет физически сгруппировать некоторое количество объектов на форме.
Использование
Для использования TGroupBox на форме вы можете просто выбрать его на вкладке Standard палитры компонентов и поместить на форму щелчком мыши.
Небольшой пример
- создайте новое приложение и поместите на форму два элемента TGroupBox
- в элемент GroupBox1 вставьте элемент TButton с именем Button1, а в элемент GroupBox2 - TButton с именем Button2
- поместите на форму (вне элементов groupbox) два переключателя TRadioButton
- в Инспекторе Объектов измените свойство Caption элемента RadioButton1 на User, а элемента RadioButton2 на Administrator
- измените свойство Checked элемента RadioButton2 на True
- создайте обработчик события OnChange элемента RadioButton1 с помощью двойного щелчка по данному элементу
- используйте этот же обработчик события для элемента RadioButton2
- выберите в Инспекторе Объектов элемент RadioButton2
- теперь выберите вкладку Events
- перейдите к событию OnChange и выберите из выпадающего списка RadioButton1Change
- сделайте элемент GroupBox2 невидимым для пользователя с помощью RadioButton
- напишите следующую строку в обработчике события для каждого элемента RadioButton:
procedure TForm1.RadioButton1Change(Sender: TObject);
begin
GroupBox2.Visible:=Radiobutton2.Checked;
end;
- добавьте ещё обработчики события для кнопок и вставьте в них такой код:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Users and administrators can click this button');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage('Only administrators can click this button');
end;
- запустите программу. Должно выглядеть так:
-> 
См. также
