Ini über Listboxauswahl in Label anzeigen

[sniper_w]

Viel lebhafter wäre es wenn du es OnMouseMove machen würdest:

Delphi-Quellcode:

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
 var Pos:Integer;
begin
 Pos := ListBox1.ItemAtPos(Point(x,y),True);
 if Pos<>-1 then 
 begin  
  ListBox1.Selected[Pos] := True;
  if ListBox1.Count-1 = Pos then
   Label1.Caption := ListBox1.Items[Pos]
  else
   Label1.Caption := ListBox1.Items[Pos]+ #10+#13+ ListBox1.Items[Pos+1];
  // usw je nach dem wieviel es                     
  // einträge pro Sektion gibt
 end;
end;