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 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 von 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]

Nun gib es doch zu, du hast von mir abgeschrieben

[DeddyH]

Nö, ich create ja keinen TPoint

[ATS3788]

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

Ich habe das total übersehen.