Eigene Komponente: Position wird nicht richtig gesetzt

[Deep-Sea]

Zitat von guidok:

Zitat von teebee:

Überschreibe SetBounds des Edits und positioniere dort bach dem Aufruf von inherited das Label.

Gruß, teebee

Hat nicht funktioniert...

Original von D2006 ExtCtrls.pas:

Delphi-Quellcode:

procedure TCustomLabeledEdit.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
begin
  inherited SetBounds(ALeft, ATop, AWidth, AHeight);
  SetLabelPosition(FLabelPosition);
end;

[guidok]

Danke für die Unterstützung, es funktioniert jetzt durch Überschreiben von SetBounds.

Ich hatte vergessen das Package neu zu compilieren, darum hat es nur zur Laufzeit geklappt.