in einer extrenen Funktion eine TEdit in einer Form erschaffen

[Dan]

Hallo,

normalerweise funktioniert das ja einwandfrei:
Ed := TEdit.Create(Form1);
Ed.ParentWindow := Form1.WindowHandle;

aber was wenn ich das aus einer externen Funktion heraus machen will, die Funktion wird irgendwo im Programm aufgerufen und soll dann in der aufrufenden Form ein Edit-Feld erschaffen???

Wie geht's?

Danke
Daniel

[Frank Kneffel]

Meinst Du in etwa so etwas ?<br>
<pre>
Procedure erzeugeedit(Sender: TObject);
begin
if sender is tform then
begin
Ed := TEdit.Create(sender as tform);
Ed.ParentWindow := (sender as tform).WindowHandle;
end;
end;
</pre&gt

[Dan]

Danke für die schnelle Antwort!

Die Eigenschaft WindowHandle wird aber leider bei mir NICHT angezeigt (Undefinierter Bezeichner)

Was mach ich da denn noch falsch

[Bernhard Berger]

äh, meinst du sowas?!?<p>
<pre>
Procedure erzeugeedit(Sender: TObject);
begin
if sender is tform then
begin
Ed := TEdit.Create(sender as tform);
Ed.Parent := (sender as tform);
end;
end;</pre&gt