Ich habe die Syntax hinbekommen. Sie war genauso wie beschrieben. Ich konnte aber das Ereignis OnEnter nicht auswerten (falls jemand weiß warum, würde mich interessieren).
Meine Lösung sieht jetzt so aus:
Delphi-Quellcode:
.....
LBox1.OnKeyUp := LBox1KeyUp;
......
procedure TForm1.LBox1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
var vbefehl: String;
begin
if (Key = VK_RETURN) and (Shift = []) then
begin
LBox1 := TListbox(Sender);
vBefehl := '';
if (LBox1.Items.Count > 0) then
begin
vBefehl := BoxAuswahl(LBox1);
....
Gruß -- VolksTobi
[edit=Luckie]Benutz das nächste mal Bitte [ delphi]-Tags. Danke. Mfg, Luckie[/edit]