TGroupBox/ru
From Free Pascal wiki
Jump to navigationJump to searchThe printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.
│
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;
- запустите программу. Должно выглядеть так:
См. также