Hi,
ich habe eine neue Klasse abgeleitet von TCustomListView erzeugt:
TMyListView = class(TCustomListView)
Die Listitems dort sollten eine Checkbox oder Radiobutton erhalten, dies klappte bisher auch ganz gut, ist aber auch nicht das Problem hier.
Ich habe die Klasse TListItem mit Hilfe einer Helper Klasse erweitert um dort ein Property Checked einzufügen. Mein Problem ist jetzt, wie kann ich diese Property, oder besser die dazugehörige Variable FChecked auf einen initialen Wert setzen.
Delphi-Quellcode:
TListItemHelper = class helper for TListItem
class var
FChecked: Boolean;
procedure SetChecked(Value : Boolean);
function GetChecked : Boolean;
published
property Checked : Boolean read GetChecked write SetChecked;
end;
Ein Coding aus der Hauptklasse TMyListView, wie beispielsweise
Delphi-Quellcode:
procedure TMyListView.ToggleSelectedCheck;
var
ListItem : TListItem;
begin
[..]
ListItem := GetNextItem(nil, sdAll, [isSelected]);
ListItem.Checked := not ListItem.Checked;
funktioniert sehr gut, nur wie kann ich beim Hinzufügen eines neuen Listitems die Variable FChecked auf False setzen?