Komponente erstellen: Left und Top festlegen?

[Muetze1]

Prüfe ab, ob AParent Nil ist.

Delphi-Quellcode:

procedure TMyCompo.SetParent(AParent: TWinControl);
begin
  inherited;
  
  If Assigned(AParent) Then
    SetBounds(AParent.ClientWidth - Width, 0, Width, Height);  // oben rechts
end;