Tust Du vielleicht noch mehr?
Zeig mal die komplette
Unit.
"Kein Fenster" bekommt man eigentlich m.E., wenn die Komponente gezeichnet werden soll und sie noch keinen Parent hat.
Zwei Vorschläge in´s Blaue...
Delphi-Quellcode:
function TCheckListBox2.getSelectedItems: TStringList;
var
i: integer;
begin
if Assigned(FSelectedItems) then
begin
FSelectedItems.Clear;
for i := 0 to self.count - 1 do
begin
if (self.Checked[i] = true) then
begin
FSelectedItems.Add(self.Items[i]);
end;
end;
end;
result := FSelectedItems;
end;
oder
Delphi-Quellcode:
procedure TCheckListBox2.Paint;
begin
if Assigned(FSelectedItems) then
inherited;
end;
Vielleicht bringt Dich das ja zumindest irgendwie weiter...