Thema: Delphi Rechtsklick abschießen

Einzelnen Beitrag anzeigen

TStringlist

Registriert seit: 1. Dez 2003
360 Beiträge
 
Turbo Delphi für Win32
 
#15

Re: Rechtsklick abschießen

  Alt 11. Mai 2005, 00:16
hmmm? Also wenn ich z.B. jetzt mal 10 Zeilen in der ListView selectiere und dann die Maus hinter einer dieser selectierten Zeile platziere, dann bekomme ich in ListView1Changing bei einem Drücken der rechten Maustaste keine Bestätigung mehr dafür, dass eben diese rechte Maus-Button jetzt auch tatsächlich gedrückt ist. Überall woanders schon, aber an einer solchen Stelle nicht. Irre ich mich da etwa?

Delphi-Quellcode:
procedure TForm1.ListView1Changing(Sender: TObject; Item: TListItem;
  Change: TItemChange; var AllowChange: Boolean);
begin // dieses funktioniert leider nicht
  If (GetKeyState(VK_RButton) And $80 <> 0) Then beep; <- hier gibt's dann KEIN Beep
end;

edit: Ich meinte nur, weil das nämlich zufälligerweise auch gleichzeitig noch der ListView-Bereich ist, über dem sich bei einem Rechts-Klick dann auch die Selection der Zeilen ausschaltet.
MfG (& Thx ggf.)
  Mit Zitat antworten Zitat