listbox automatische Balkenverschiebung mit Mauszeiger

[HansC]

So geht's bei mir jetzt. Umständlich?? oder auch nicht. Jedenfalls, läuft einwandfrei!

Delphi-Quellcode:

procedure TForm5.ListBox2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var index : integer;
begin
  begin
    Index := listbox2.ItemAtPos(Point(x,y),true);
    if index > -1 then
    begin
      listbox2.ItemIndex := Index;
      listBox2.Selected[Index] := true;
    end;
  end;
end;

cu Hans

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]