Eigene Komponente: Position wird nicht richtig gesetzt

[guidok]

Ich habe jetzt mal was ergänzt.

Delphi-Quellcode:

procedure TbroseEdit.WMSize(var Message: TWMSize);
begin
  fLabel.SetBounds(Left - 100, Top, 100, 17);
  inherited;
end;

procedure TbroseEdit.WMMove(var Message: TWMMove);
begin
  fLabel.SetBounds(Left - 100, Top, 100, 17);
  inherited;
end;

Jetzt stimmt es zumindest mal zur Laufzeit, aber noch nicht zur Entwurfszeit.