ich will eine eigene Ableitung einer Combobox erstellen, welche voreinstellte Properties und eine bereits von mit gefüllte items beinhalten soll.
Funktioniert für auf die Behandlung der Stringlists in den items bzw. itemvalue.
Sobald ich in meiner Ableitung die items anspreche (egal ob per items.clear bzw. items.add('blabla') bekomme einen Fehler, sobald ich versuche die visuelle Komponente auf ein Formalar zu legen (innerhalb der IDE):
Fehler - Element '' hat kein übergeordnetesFenster
Hier der constructor create meiner abgeleiteten Komponenten:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
| constructor TMy_DBEingabeMwSt.Create(AOwner: TComponent);
Begin
inherited;
style:=csDropdownlist;
width:=97;
Showmessage('vor items.clear');
items.Clear; itemvalues.clear;
Showmessage('nach items.clear');
if (FindWindow('TApplication', nil) = 0) or
(FindWindow('TAlignPalette', nil) = 0) or
(FindWindow('TPropertyInspector', nil) = 0) or
(FindWindow('TAppBuilder', nil) = 0) then
Begin
try
items.add('0.) '+FloatToStr(GetMwStSatz(0)));
items.add('1.) '+FloatToStr(GetMwStSatz(1)));
items.add('2.) '+FloatToStr(GetMwStSatz(2)));
items.add('3.) '+FloatToStr(GetMwStSatz(3)));
items.add('4.) '+FloatToStr(GetMwStSatz(4)));
itemvalues.add('0');
itemvalues.add('1');
itemvalues.add('2');
itemvalues.add('3');
itemvalues.add('4');
except
End;
End
Else
Begin
items.add('0.) 0%');
items.add('1.) 16%');
items.add('2.) 8%');
itemvalues.add('0');
itemvalues.add('1');
itemvalues.add('2');
End;
end; |
Wie lade ich also die Stringlist der Komponente fehlerfrei in meinem Create constructor?
