Nowy komponent-Błąd: Ctrl '' has no parent window

0

Dobra. Pisze komponent pochodny od klasy TCustomLabel:

type
TJuhasScrollLabel = class(TCustomLabel);
...

Gdy chcę położyć ten komponent na formę, pojawia się błąd:
Control '' has no parent window.

I komponent się nie kładzie. O co mu chodzi?

Konstruktor wygląda tak:

constructor TJuhasScrollLabel.Create(AOwner: TComponent);
begin
 inherited;
 //i tu różne przyrównania, np: FInterval=200
end;
0

hm... Może :
inherited Create(AOwner)

spróbuj... :) Ale nie wiem, czy to bedzie miało jakiś sens... :)

0

hm... Może :
inherited Create(AOwner)

spróbuj... :) Ale nie wiem, czy to bedzie miało jakiś sens... :)

Już tak zrobiłem i było dobrze, ale...

Muszę dać jeden warunek typu: (FText to text do scrollowania)

if canvas.TextWidth(FText)>width then timer.enabled:=false else timer.Enabled=true;

Gdy daje to w konstruktorze, znowu wyskakuje błąd z tym parent window.
Gdy daje to w procedurze, gdzie wpisuje się text, to też się to robi.

Mógłbym dać to w procedurze Timera, że jeżeli... to exit.
Ale wtedy Timer by cały czas był aktywny, co oczywiście mnie nie za bardzo satysfakcjonuje :/

1 użytkowników online, w tym zalogowanych: 0, gości: 1