Rechtsklick abschießen

[Lannes]

Hallo,

was sagt denn die Delphi-Hilfe

Zitat:

Mit einer Ereignisbehandlungsroutine für OnChanging können Sie in Abhängigkeit von einer Bedingung die Änderung eines Listenelements verhindern, indem Sie dem Parameter AllowChange den Wert False zuweisen. Der Parameter Item ist das Listenelement, das geändert wird. Der Parameter Change zeigt die Art der Änderung an, die stattfinden soll.

ich glaube das sollte Dir weiterhelfen:

Delphi-Quellcode:

procedure TForm1.ListView1Changing(Sender: TObject; Item: TListItem;
  Change: TItemChange; var AllowChange: Boolean);
begin
  If (GetKeyState(VK_RButton) And $80 <> 0) Then
    AllowChange := False
    else
      AllowChange := True;
end;