Hmm...
Hab jetzt mal ein bisschen mit dem Code rumprobiert,
und irgendwie gibt es jetzt beim Beenden immer eine
Exception:
Delphi-Quellcode:
procedure TMyCompo.SetParent(AParent: TWinControl);
begin
inherited;
SetBounds(AParent.ClientWidth - Width, 0, Width, Height); // oben rechts
end;
Dieser Code funktioniert, hier gibt es keine
Exception:
Delphi-Quellcode:
procedure TMyCompo.SetParent(AParent: TWinControl);
begin
inherited;
SetBounds(0, 0, Width, Height); // oben links
end;
Wie kann ich es aber erreichen, dass meine Komponente oben rechts plaziert wird, ohne dass es beim Beenden zu einer
Exception kommt???