TGroupBox/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;

• запустите программу. Должно выглядеть так:

->

См. также

• Документация по TGroupBox
• TPairSplitter
• TNotebook
• TPageControl
• TTabControl

From the Free Pascal wiki, page "TGroupBox/ru", as it stood on 2020-03-01 after a change by GAN, 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.