ich finde meinen fehler nicht...

[Marco Steinebach]

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

[haentschman]

Moin...

Mache mal eine 2. Version ohne "with". Schaue mal ob es dann geht und er durch das "with" falsch abbiegt.

[Marco Steinebach]

... nein, hilft leider nix! Schade...

[Popov]

Ein dumme Frage - die richtige Units hast du aber eingebunden?

[Marco Steinebach]

... joa, hab ich!
Compilieren läßt sich das Ganze wunderbar, es knallt, läßt man den debugger mitlaufen, auch erst, nachdem der constructor komplett durchgelaufen ist...
Ist mir echt 'n rätsel!

[Gerd01]

Also dies landet

fWochentag := TStaticText.Create (aOwner);

beim aOwner und nicht wie wohl gewollt bei Self ( TMSDatumCombo )