AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

item listbox per mousemove auswaehlen

Ein Thema von ATS3788 · begonnen am 30. Jan 2015 · letzter Beitrag vom 31. Jan 2015
Antwort Antwort
Benutzerbild von ATS3788
ATS3788

Registriert seit: 18. Mär 2004
Ort: Kriftel
646 Beiträge
 
Delphi XE Starter
 
#1

item listbox per mousemove auswaehlen

  Alt 30. Jan 2015, 20:14
Delphi-Version: XE7
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.
Martin MIchael
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#2

AW: item listbox per mousemove auswaehlen

  Alt 30. Jan 2015, 20:21
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;
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.286 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: item listbox per mousemove auswaehlen

  Alt 30. Jan 2015, 20:24
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]
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#4

AW: item listbox per mousemove auswaehlen

  Alt 30. Jan 2015, 20:30
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
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.286 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: item listbox per mousemove auswaehlen

  Alt 30. Jan 2015, 20:34
Nö, ich create ja keinen TPoint
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von ATS3788
ATS3788

Registriert seit: 18. Mär 2004
Ort: Kriftel
646 Beiträge
 
Delphi XE Starter
 
#6

AW: item listbox per mousemove auswaehlen

  Alt 31. Jan 2015, 12:09
Danke ihr beiden
Da hätte ich darauf kommen können.

Ich habe das total übersehen.
Martin MIchael
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:46 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