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;