Edit.Text Initialisierung unterbinden

[baumina]

Ich hab mal kurz in die Delphi Quellcodes geschaut, denke das hier wird das sein das du gesucht hast:

Delphi-Quellcode:

procedure TControl.SetName(const Value: TComponentName);
var
  ChangeText: Boolean;
begin
  ChangeText := (csSetCaption in ControlStyle) and
    not (csLoading in ComponentState) and (Name = Text) and
    ((Owner = nil) or not (Owner is TControl) or
    not (csLoading in TControl(Owner).ComponentState));
  inherited SetName(Value);
  if ChangeText then Text := Value;
end;