Rechtsklick in Scrollbar einer TListBox abfangen

[venice2]

Zitat:

Zu dem Hinweis "ScrollBar selbst zeichnen":
Bei mir wird die korrekt gezeichnet.

Ist nicht nötig vorausgesetzt du hast vollen Zugriff auf die Scrollbar um die Message WM_NCRBUTTONDOWN behandeln zu können.
Wie du schreibst scheint es ja bei dir jetzt zu funktionieren.

An den Tooltips (Hints) musst du aber noch was tun die stimmen mit den Einträgen nicht überein.

[Amateurprofi]

Zitat:

An den Tooltips (Hints) musst du aber noch was tun die stimmen mit den Einträgen nicht überein.

Bei mir tun sie es.
Wenn die Maus in die ScrollBar zeigt, wird angezeigt, welcher Eintrag der Position des Mauszeigers entspricht.
Wenn ich dann einen Rechtsklick in die ScrollBar mache, wird die Liste so gescrollt, dass der Eintrag, der im Hint gezeigt wurde, als oberster Eintrag gezeigt wird.
Ausnahmen: Die letzten Einträge können ev. nicht ganz nach oben gescrollt werden.

Kannst du etwas genauer beschreiben, was unter "die stimmen mit den Einträgen nicht überein" zu verstehen ist.

[venice2]

Ein Bild scheint hier angebracht zu sein.
Es ist der Eintrag 9 Selektiert und die Maus befindet sich in diesen Bereich allerdings wird hier der Eintrag 821 angezeigt.
Das passt irgendwie nicht zusammen.

Meine Meinung.
Ist aber möglich das es dir so reicht bzw. in Ordnung für dich ist.

Deine beschriebene Methode (Ergebnis) funktioniert jedoch korrekt.
Vielleicht umbenennen damit man weis um was es geht?

Zitat:

"Get List entry from current mouse position xxx"

[venice2]

Zitat:

zeigt bei mir den Wert aus der selektierten Zeile an. Habe es mit Delphi 2006 getestet.

Ist aber nicht das was er möchte.

Er ermittelt abhängig von der aktuellen Maus Position innerhalb der Scrollbar den aktuellen Index der sich an dieser Position befindet.
Mit einem Rechtsklick schiebt er dann diesen Index on Top in der Listbox.
So habe ich das verstanden.

Das funktioniert so wie er es will.

Das wäre die korrekte Procedure damit auch alles passt.

procedure WMNCRBUTTONDOWN(var Msg: TWMNCRButtonDown); message WM_NCRBUTTONDOWN;

Delphi-Quellcode:

procedure TListBox.WMNCRBUTTONDOWN(var Msg: TWMNCRButtonDown);
var
  Index: Integer;
begin
  if MousePosToIndex(ScreenToClient(Point(Msg.XCursor, Msg.YCursor)), Index) then
  begin
    EraseSBarHint;
    TopIndex := Index;
  end;
  Msg.Result := 1;
end;

[Amateurprofi]

Zitat von venice2:

Er ermittelt abhängig von der aktuellen Maus Position innerhalb der Scrollbar den aktuellen Index der sich an dieser Position befindet.
Mit einem Rechtsklick schiebt er dann diesen Index on Top in der Listbox.
So habe ich das verstanden..

Genau so ist es.

Zitat von venice2:

Das wäre die korrekte Procedure damit auch alles passt.

procedure WMNCRBUTTONDOWN(var Msg: TWMNCRButtonDown); message WM_NCRBUTTONDOWN;

Delphi-Quellcode:

procedure TListBox.WMNCRBUTTONDOWN(var Msg: TWMNCRButtonDown);
var
  Index: Integer;
begin
  if MousePosToIndex(ScreenToClient(Point(Msg.XCursor, Msg.YCursor)), Index) then
  begin
    EraseSBarHint;
    TopIndex := Index;
  end;
  Msg.Result := 1;
end;

Danke für die Korrektur. Werde ich entsprechend anpassen.

[venice2]

Zitat:

Eine Option wäre noch, die Liste so zu scrollen, dass der Eintrag, zu dem ich springe, an der Y-Position der Mauszeigers angezeigt wird und nicht als obersten Eintrag.

Genau das solltest du tun dann entspricht es dem Popup Menu Eintrag "Bildlauf hier"
und du umgehst das Problem mit dem Top Index der ListBox wenn dieser nicht mehr OnTop gesetzt werden kann.

[Amateurprofi]

Zitat von venice2:

Ein Bild scheint hier angebracht zu sein.
Es ist der Eintrag 9 Selektiert und die Maus befindet sich in diesen Bereich allerdings wird hier der Eintrag 821 angezeigt.
Das passt irgendwie nicht zusammen.

Meine Meinung.
Ist aber möglich das es dir so reicht bzw. in Ordnung für dich ist.

Deine beschriebene Methode (Ergebnis) funktioniert jedoch korrekt.
Vielleicht umbenennen damit man weis um was es geht?

Zitat:

"Get List entry from current mouse position xxx"

Dann habe entweder ich schlecht beschrieben, was ich beabsichtigte oder ... .
Der "Hint" den ich ausgebe soll nicht angeben, welcher Eintrag gerade den Fokus hat (=ItemIndex) sondern er soll mir zeigen an welcher Stelle der Liste ich lande, wenn ich die ScrollBar rechtsklicke.

"Mein Rechtsklick" ist im Prinzip das Gleiche, was Windows macht, wenn ich in dem PopUp Menu den Eintrag "Bildlauf hier" auswähle.
Was mir bei der Verwendung des PopUp Menus nicht gefällt, ist, dass ich dort keine Information habe, wo ich in der Liste lande, wenn ich "Bildlauf hier" auswähle. Ich kann zwar ungefähr abschätzen wo ich landen werde, aber ich wüsste dass gern vorher.
Bei meiner Methode wird mir angezeigt, wo ich landen werde, wobei ich die Wahl habe, mir nur den Index des Eintrags anzeigen zu lassen oder den Klartext des Listen-Eintrags.
Eine Option wäre noch, die Liste so zu scrollen, dass der Eintrag, zu dem ich springe, an der Y-Position der Mauszeigers angezeigt wird und nicht als obersten Eintrag.