Rechtsklick in Scrollbar einer TListBox abfangen

[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.

Delphi-Quellcode:

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:

Zitat von venice2 (Beitrag 1460076)

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.

[Amateurprofi]

Zitat:

Zitat von venice2 (Beitrag 1460083)

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:

Zitat von venice2 (Beitrag 1460083)

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

Delphi-Quellcode:

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.