Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by bernhard_LA,
31. Jul 2015
danke für die Diskussion , so scheint es zu spielen :
function TCheckListBox2.getSelectedItems: TStringList;
var
i: integer;
begin
if assigned(self.Parent) then
begin
if assigned(FSelectedItems) then
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by bernhard_LA,
30. Jul 2015
im Constructor der Klasse , habe #1 ergänzt
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by bernhard_LA,
30. Jul 2015
ich habe eine eigene Komponente um diese wenigen Zeilen Code erweitert und bekomme die lustige :? Fehlermeldung von oben wenn ich die Komponente in einem neuen Projekt auf ein Form ziehe.
TCheckListBox2 = class(TCheckListBox)
private
FSelectedItems: TStringList;
function getSelectedItems: TStringList;
public