Hallo!
Ich baue eine TListBox mit Items mit Checkboxen auf.
Lustigerweise reagiert die Checkbox in Windows nicht wenn man sie anklickt...
Wenn ich aber zwischen Text und Checkbox zeige glüht die Checkbox und reagiert auf Klicks.
WTF ? Was tun?
Delphi-Quellcode:
procedure TEinstellungenView.FillActionList;
var I : Integer;
Begin
actionList.Clear;
actionList.BeginUpdate;
for i := 0 to Actionsdata.Count -1 do
Begin
actionList.Items.Add(Actionsdata[i].Name);
actionList.ListItems[i].IsChecked := Actionsdata[i].Active;
actionList.ListItems[i].Data := Actionsdata[i];
End;
actionList.Size.Height := (actionList.Count * actionList.ItemHeight) + 6;
actionList.endUpdate;
Realign;
end;
Delphi-Quellcode:
object ActionList: TListBox
Align = Top
Position.Y = 20.000000000000000000
Size.Width = 285.000000000000000000
Size.Height = 93.000000000000000000
Size.PlatformDefault = False
TabOrder = 2
AllowDrag = True //<-- da
DisableFocusEffect = True
ItemHeight = 34.000000000000000000
DefaultItemStyles.ItemStyle = ''
DefaultItemStyles.GroupHeaderStyle = ''
DefaultItemStyles.GroupFooterStyle = ''
ShowCheckboxes = True //<-- da
OnItemClick = ActionListItemClick
Viewport.Width = 281.000000000000000000
Viewport.Height = 89.000000000000000000
end