Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi Editfeld mit automatischer Listbox

**Luckie**

Code:

			[b]procedure[/b] TForm1.Edit1Enter(Sender: TObject);

[b]begin[/b]

  Listbox1.Visible := TRUE;

[b]end[/b];

[b]procedure[/b] TForm1.Edit1Exit(Sender: TObject);

[b]begin[/b]

  Listbox1.Visible := FALSE;

[b]end[/b];

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#10 5. Okt 2002, 18:50 markieren Code: [b]procedure[/b] TForm1.Edit1Enter(Sender: TObject); [b]begin[/b] Listbox1.Visible := TRUE; [b]end[/b]; [b]procedure[/b] TForm1.Edit1Exit(Sender: TObject); [b]begin[/b] Listbox1.Visible := FALSE; [b]end[/b]; Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat