item listbox per mousemove auswaehlen

[ATS3788]

Hallo Delphianer

Da gab es schon mal einen Eintrag
http://www.delphipraxis.net/49866-it...uswaehlen.html
leider war der wohl für Net.

Hat jemand eine Idee wie das für eine VCL Listbox gehen könnte.

[Sir Rufo]

Gefunden indem ich nach

Delphi-Quellcode:

ListBox1

den Punkt getippt und mir die Methoden angesehen habe ;)

Delphi-Quellcode:

procedure TForm1.ListBox1MouseMove( Sender: TObject; Shift: TShiftState; X, Y: Integer );
begin
  ListBox1.ItemIndex := ListBox1.ItemAtPos(
  {Pos} TPoint.Create( X, Y ),
  {Existing} True );
end;

[DeddyH]

Meinst Du so etwas?

Delphi-Quellcode:

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ListBox1.ItemIndex := ListBox1.ItemAtPos(Point(X, Y), true);
end;

[edit] Wo war der rote Kasten? [/edit]

[Sir Rufo]

Zitat:

Zitat von DeddyH (Beitrag 1288361)

Meinst Du so etwas?

Delphi-Quellcode:

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ListBox1.ItemIndex := ListBox1.ItemAtPos(Point(X, Y), true);
end;

[edit] Wo war der rote Kasten? [/edit]

Nun gib es doch zu, du hast von mir abgeschrieben :mrgreen:

[DeddyH]

Nö, ich create ja keinen TPoint :P

[ATS3788]

Danke ihr beiden:thumb:
Da hätte ich darauf kommen können.

Ich habe das total übersehen.