Hallo zusammen,
kann mal bitte jemand einen Blick auf meinen Constructor werfen und mir sagen, warum ich eine
Exception EClassNotFound "Klasse TStaticText nicht gefunden" bekomme?
Delphi-Quellcode:
constructor TMSDatumCombo.create (aOwner: TComponent);
begin
inherited create (aOwner);
parent := TWinControl (aOwner);
with items do
begin
clear;
add ('vorgestern');
add ('gestern');
add ('heute');
add ('nächster Tag');
add ('übermorgen');
add ('Sonntag');
add ('Montag');
add ('Dienstag');
add ('Mitwoch');
add ('Donnerstag');
add ('Freitag');
add ('Samstag');
end;
fWochentag := TStaticText.Create (aOwner);
with fWochentag do
begin
parent := self.parent;
left := self.left + 100;
top := self.top;
focusControl := self;
end;
end;
fWochentag ist private als
fWochentag: TStaticText
deklariert...
Ich bin wirklich gespannt, was ich da falsch gemacht habe.
Ich häng die ganze
Unit mal dran...
Bitte schaut mal drauf!!!
Viele Grüße
Marco