Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi item listbox per mousemove auswaehlen (https://www.delphipraxis.net/183722-item-listbox-per-mousemove-auswaehlen.html)

ATS3788 30. Jan 2015 20:14

Delphi-Version: XE7

item listbox per mousemove auswaehlen
 
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 30. Jan 2015 20:21

AW: item listbox per mousemove auswaehlen
 
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 30. Jan 2015 20:24

AW: item listbox per mousemove auswaehlen
 
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 30. Jan 2015 20:30

AW: item listbox per mousemove auswaehlen
 
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 30. Jan 2015 20:34

AW: item listbox per mousemove auswaehlen
 
Nö, ich create ja keinen TPoint :P

ATS3788 31. Jan 2015 12:09

AW: item listbox per mousemove auswaehlen
 
Danke ihr beiden:thumb:
Da hätte ich darauf kommen können.

Ich habe das total übersehen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 03:16 Uhr.

Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf