TCheckGroup/ru

From Free Pascal wiki
Jump to navigationJump to search

Deutsch (de) English (en) suomi (fi) français (fr) русский (ru)

TCheckGroup tcheckgroup.png является элементом управления, который содержит группу элементов TCheckBox, объединенных вместе физически и логически.

Использование

Для использования элемента TCheckGroup на форме, вы можете просто выбрать его на вкладке Standard палитры компонентов и поместить на форму щелчком мыши.

Небольшой пример

В данном примере демонстрируется смена цвета фона формы. Цвет фона определяется добавлением соответствующего компонента цвета:

  • создайте новое приложение и поместите TCheckGroup на форму
  • в Инспекторе Объектов измените свойство Name с CheckGroup1 на cgRed и заголовок на Red
  • добавьте флажки (элементы TCheckBox) для элемента cgRed:
    • в Инспекторе Объектов выберите свойство Items элемента cgRed
    • щелкните по кнопке [...]; откроется диалоговое окно ввода строк
    • напишите одно за другим числа 1 2 4 8 16 32 64 128 и после завершения нажмите кнопку OK
  • скопируйте элемент cgRed, щелкнув по нему правой кнопкой мыши и выберите пункт Копировать
  • щелкните правой кнопкой мыши по форме и выберите пункт Вставить; в результате появится элемент с именем cgRed1
  • теперь измените свойство Name с cgRed1 на cgGreen и свойство Caption на Green
  • точно также вставьте ещё элемент и измените свойство Name на cgBlue и свойство Caption на Blue
  • всякий раз при щелчках по элементам CheckBox будет меняться цвет:
    • в Инспекторе Объектов создайте обработчик события OnItemClick элемента cgRed с помощью щелчка по кнопке [...] рядом с пунктом OnItemClick
    • для элементов cgGreen и cgBlue также укажите этот же обработчик события, выбрав cgRedItemClick из раскрывающегося списка
    • напишите следующий код в обработчике события:
procedure TForm1.cgRedItemClick(Sender: TObject; Index: integer);
var
  i, c: Integer;
begin
  c := $000000;                                         // изначально зададим черный цвет
  for i := 0 to 7 do begin                              // проверяем элементы 0..7 во всех элементах CheckGroup
    if cgRed.Checked[i]   then c := c + 1 shl i;        // количество значений для красного цвета $000000..$0000FF
    if cgGreen.Checked[i] then c := c + 1 shl (i + 8);  // количество значений для зеленого цвета $000000..$00FF00
    if cgBlue.Checked[i]  then c := c + 1 shl (i + 16); // количество значений для синего цвета $000000..$FF0000
  end;
  Color := c;
end;
  • запустите программу. Должно выглядеть так:

ExampleTCheckGroup.png

См. также


Компоненты LCL
Вкладка Компоненты
Standard TMainMenu • TPopupMenu • TButton • TLabel • TEdit • TMemo • TToggleBox • TCheckBox • TRadioButton • TListBox • TComboBox • TScrollBar • TGroupBox • TRadioGroup • TCheckGroup • TPanel • TFrame • TActionList
Additional TBitBtn • TSpeedButton • TStaticText • TImage • TShape • TBevel • TPaintBox • TNotebook • TLabeledEdit • TSplitter • TTrayIcon • TControlBar • TFlowPanel • TMaskEdit • TCheckListBox • TScrollBox • TApplicationProperties • TStringGrid • TDrawGrid • TPairSplitter • TColorBox • TColorListBox • TValueListEditor
Common Controls TTrackBar • TProgressBar • TTreeView • TListView • TStatusBar • TToolBar • TCoolBar • TUpDown • TPageControl • TTabControl • THeaderControl • TImageList • TPopupNotifier • TDateTimePicker
Dialogs TOpenDialog • TSaveDialog • TSelectDirectoryDialog • TColorDialog • TFontDialog • TFindDialog • TReplaceDialog • TOpenPictureDialog • TSavePictureDialog • TCalendarDialog • TCalculatorDialog • TPrinterSetupDialog • TPrintDialog • TPageSetupDialog • TTaskDialog
Data Controls TDBNavigator • TDBText • TDBEdit • TDBMemo • TDBImage • TDBListBox • TDBLookupListBox • TDBComboBox • TDBLookupComboBox • TDBCheckBox • TDBRadioGroup • TDBCalendar • TDBGroupBox • TDBGrid • TDBDateTimePicker
Data Access TDataSource • TBufDataset • TMemDataset • TSdfDataSet • TFixedFormatDataSet • TDbf
System TTimer • TIdleTimer • TLazComponentQueue • THTMLHelpDatabase • THTMLBrowserHelpViewer • TAsyncProcess • TProcessUTF8 • TProcess • TSimpleIPCClient • TSimpleIPCServer • TXMLConfig • TEventLog • TServiceManager • TCHMHelpDatabase • TLHelpConnector
Misc TColorButton • TSpinEdit • TFloatSpinEdit • TArrow • TCalendar • TEditButton • TFileNameEdit • TDirectoryEdit • TDateEdit • TTimeEdit • TCalcEdit • TFileListBox • TFilterComboBox • TComboBoxEx • TCheckComboBox • TButtonPanel • TShellTreeView • TShellListView • TXMLPropStorage • TINIPropStorage • TIDEDialogLayoutStorage • TMRUManager • TStrHolder
LazControls TCheckBoxThemed • TDividerBevel • TExtendedNotebook • TListFilterEdit • TListViewFilterEdit • TLvlGraphControl • TShortPathEdit • TSpinEditEx • TFloatSpinEditEx • TTreeFilterEdit • TExtendedTabControl •
RTTI TTIEdit • TTIComboBox • TTIButton • TTICheckBox • TTILabel • TTIGroupBox • TTIRadioGroup • TTICheckGroup • TTICheckListBox • TTIListBox • TTIMemo • TTICalendar • TTIImage • TTIFloatSpinEdit • TTISpinEdit • TTITrackBar • TTIProgressBar • TTIMaskEdit • TTIColorButton • TMultiPropertyLink • TTIPropertyGrid • TTIGrid
SQLdb TSQLQuery • TSQLTransaction • TSQLScript • TSQLConnector • TMSSQLConnection • TSybaseConnection • TPQConnection • TPQTEventMonitor • TOracleConnection • TODBCConnection • TMySQL40Connection • TMySQL41Connection • TMySQL50Connection • TMySQL51Connection • TMySQL55Connection • TMySQL56Connection • TSQLite3Connection • TIBConnection • TFBAdmin • TFBEventMonitor • TSQLDBLibraryLoader
Pascal Script TPSScript • TPSScriptDebugger • TPSDllPlugin • TPSImport_Classes • TPSImport_DateUtils • TPSImport_ComObj • TPSImport_DB • TPSImport_Forms • TPSImport_Controls • TPSImport_StdCtrls • TPSCustomPlugin
SynEdit TSynEdit • TSynCompletion • TSynAutoComplete • TSynMacroRecorder • TSynExporterHTML • TSynPluginSyncroEdit • TSynPasSyn • TSynFreePascalSyn • TSynCppSyn • TSynJavaSyn • TSynPerlSyn • TSynHTMLSyn • TSynXMLSyn • TSynLFMSyn • TSynDiffSyn • TSynUNIXShellScriptSyn • TSynCssSyn • TSynPHPSyn • TSynTeXSyn • TSynSQLSyn • TSynPythonSyn • TSynVBSyn • TSynAnySyn • TSynMultiSyn • TSynBatSyn • TSynIniSyn • TSynPoSyn
Chart TChart • TListChartSource • TRandomChartSource • TUserDefinedChartSource • TCalculatedChartSource • TDbChartSource • TChartToolset • TChartAxisTransformations • TChartStyles • TChartLegendPanel • TChartNavScrollBar • TChartNavPanel • TIntervalChartSource • TDateTimeIntervalChartSource • TChartListBox • TChartExtentLink • TChartImageList
IPro TIpFileDataProvider • TIpHttpDataProvider • TIpHtmlPanel