Edit.Text Initialisierung unterbinden

[hathor]

Was muss man ändern?
if ChangeText then Text := ''; ist leider nicht zielführend...

[DeddyH]

Würde es nicht genügen, csSetCaption aus dem ControlStyle zu entfernen?

[Sir Rufo]

Zitat von DeddyH:

Würde es nicht genügen, csSetCaption aus dem ControlStyle zu entfernen?

[idefix2]

Hmm, an die Möglichkeit habe ich gar nicht gedacht, das wäre wahrscheinlich sogar die bessere Lösung - auf Grund der Bezeichnung kann man ja hoffen, dass das keine unerwünschten Nebeneffekte mit sich bringt (ich habe ein tief sitzendes Mißtrauen dagegen, Dinge zu ändern, bei denen ich nicht ganz sicher bin, dass es keine Kollateralschäden gibt, aber in dem Fall ist das Mißtrauen höchtwahrscheinlich nicht gerechtfertigt).

Ich habe die Routine überschrieben:

Delphi-Quellcode:

procedure TfdEdit.SetName(const Value: TComponentName);
var oldtext: string;
begin
oldtext:=text;
inherited;
text:=oldtext;
end;

[DeddyH]

Da genügt ein Blick in die Hilfe zu TControl.ControlStyle.

Delphi-Quellcode:

constructor TfdEdit.Create(AOwner: TComponent);
begin
  inherited;
  ControlStyle := ControlStyle - [csSetCaption];
end;

Das sollte es gewesen sein.

[idefix2]

Jep. Hab das inzwischen auch so geändert. Und dann gleich wieder die IDE mit dem Task Manager abgewürgt, weil ich vergessen habe, dass die das ohne Neustart nicht mag.