Forum: Object-Pascal / Delphi-Language
Delphi
by freak4fun,
25. Jan 2006
procedure TForm1.Edit1Enter(Sender: TObject);
begin
ListBox1.Parent := (Sender As TEdit).Parent;
ListBox1.Left := (Sender As TEdit).Left;
ListBox1.Top := (Sender As TEdit).Top + (Sender As TEdit).Height;
end;
MfG
freak
Forum: Object-Pascal / Delphi-Language
Delphi
by freak4fun,
25. Jan 2006
Achso, du willst die Listbox immer an der Mouse haben? :gruebel:
Dann hab ich das falsch verstanden. Ich dachte die Listbox soll immer unter der Komponente sein in die gerade etwas geschrieben wird. :)
Wenn ich zu Hause bin kann ich ja mal meine Variante posten.
MfG
freak
Forum: Object-Pascal / Delphi-Language
Delphi
by freak4fun,
25. Jan 2006
Ich würde gern mal sehen was du da gemacht hast. ;)
MfG
freak
Forum: Object-Pascal / Delphi-Language
Delphi
by freak4fun,
25. Jan 2006
Versuch es mal mit:
Listbox1.Parent := Edit1.Parent;
MfG
freak