Komponente zur Designtime umbenennen

[himitsu]

Nee.

Praktisch die Komponente sich selber.

Delphi-Quellcode:

//procedure SetText(const Value: TCaption); virtual;

procedure TMyLabel.SetText(const Value: TCaption);
begin
  inherited;
  if (csDesigning in ComponentState) and StartsText('Label', Name) then
    Name := MakeValidName(Caption);
end;