TSelectBoxEx

Klasse für ein Control zur Auswahl einer oder mehrerer vorgegebenen Optionen:

Eigenschaften

Eigenschaft	Beschreibung
DefaultColor:N	Die Farbe für das Control, wenn es nicht den Fokus hat
FocusColor:N	Die Farbe für das Control, wenn es den Fokus hat
ReadOnlyColor:N	Die Farbe für das Control, wenn es ReadOnly ist
CbCount:N	Gibt die Anzahl auswählbaren Items zurück
CbItemIndex:N	Index des aktuell fokussierten Items. Setzen des Wertes schaltet den Checked-Status des Items um.

Funktionen

Funktion	Beschreibung
CbDeleteItem	Entfernt das Item am angegebenen Index
CbClear	Entfernt alle Items aus der SelectBox
CbCheckAll	Setzt den Checked-Status für alle Items auf True
CbCheckNone	Setzt den Checked-Status für alle Items auf False
CbCheckItem	Setzt den Checked-Status für das Item am angegebenen Index auf True
CbUnCheckItem	Setzt den Checked-Status für das Item am angegebenen Index auf False
CbAddItem:N	Fügt ein neues Items hinzu und gibt den Index für dieses zurück
CbGetItem:C	Gibt den Namen des Items am angegebenen Index zurück
CbIsItemChecked:L	Gibt den Checked-Status des Items am angegebenen Index zurück

Verfügbare Ereignisse

Ereignis	Beschreibung
OnValidateValue	Zur Überprüfung, ob die Auswahl der Items erlaubt ist.

Beispiel

CODE

//##############################################################################
//##############################################################################
// Beschreibung: Onlinehilfe Beispiel für die Verwendung von TSelectBoxEx im
//               Codeblock.
//##############################################################################
//##############################################################################

| oForm, oBtn_Add, oBtn_Delete, oEdit, oSelectBox |

//******************************************************************************
// Fügt ein neues SelectBox Item hinzu
//******************************************************************************
function DoAddClick()
  oSelectBox.CbAddItem(oEdit.text),
end,

//******************************************************************************
// Löscht ein SelectBox Item
//******************************************************************************
function DoDeleteClick()
  oSelectBox.CbDeleteItem(oSelectBox.ItemIndex),
end,

oForm := CreateObject('TFormEx'),
startseq
   //***************************************************************************
   oBtn_Delete         := CreateObject('TButton', , oForm, oForm),
   oBtn_Delete.Caption := 'Löschen',
   oBtn_Delete.Align   := alBottom,
   AssignEvent(oBtn_Delete, 'OnClick', 'DoDeleteClick'),

   //***************************************************************************
   oBtn_Add         := CreateObject('TButton', , oForm, oForm),
   oBtn_Add.Caption := 'Hinzufügen',
   oBtn_Add.Align   := alBottom,
   AssignEvent(oBtn_Add, 'OnClick', 'DoAddClick'),

   //***************************************************************************
   oEdit       := CreateObject('TEdit', , oForm, oForm),
   oEdit.Align := alBottom,

   //***************************************************************************
   oSelectBox       := CreateObject('TSelectBoxEx', '', oForm, oForm),
   oSelectBox.Align := alTop,

   oSelectBox.CbAddItem('#####'),
   oSelectBox.CbAddItem('12345'),
   oSelectBox.CbAddItem('abcde'),
   oSelectBox.CbAddItem('@@@@@'),

   oSelectBox.CbItemIndex := 3,

   ShowModal(oForm),
always
   DestroyObject(oForm),
stopseq

Weitere Verknüpfungen

TDBSelectBoxEx