AutoComplete für TMemo, TRichEdit uvm.

[sx2008]

Was mir nicht so gut gefällt, ist dass der Owner im Konstruktor mitgegeben werden muss.
Gerade dein Beispiel:
 AutoComplete2 := TAutoComplete.Create(Form1,'plz.txt',LabeledEdit1); zeigt, dass man damit schwerzufindende Fehler begehen kann.
Folgendes Beispiel zeigt, dass man Formulare auch mit lokalen Variablen erstellen kann.

Delphi-Quellcode:

procedure Test;
var
  x : TForm1;
begin
  x := TForm1.Create(nil);
  x.ShowModal;
  x.Free;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  // Fehler: Owner ist Form1 - richtig kann aber nur self sein
  AutoComplete := TAutoComplete.Create(Form1,'plz.txt',LabeledEdit1);
end;

Um dieses Problem aus der Welt zu schaffen, würde ich folgende Änderung vorschlagen:

Delphi-Quellcode:

constructor TAutoComplete.Create(const Edit: TControl; const TxtFile: String);
begin
  Assert(Assigned(Edit));
  Inherited Create(Edit.Owner);       // gleicher Owner, den auch Edit hat
  Parent := Edit.Parent;              // dito *)

Bei der Zeile mit dem *) könnte sich jetzt ein Problem ergeben, weil vorher der Parent das Formular war und jetzt kann es auch eine Groupbox sein.
Dann kann man aber so lange über Parent nach "oben" gehen, bis man auf dem Formular gelandet ist.

Delphi-Quellcode:

var
  tmp : TControl;
begin
  tmp := Edit.Parent;
  while Assigned(tmp.Parent) do tmp := tmp.Parent;
  Parent := tmp;