TGroupBox/ru
From Free Pascal wiki
Jump to navigationJump to search
│
Deutsch (de) │
English (en) │
suomi (fi) │
français (fr) │
日本語 (ja) │
русский (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;
- запустите программу. Должно выглядеть так:
См. также