Onclick und rechte Maustaste!

[Die Muhkuh]

Delphi-Quellcode:

published
  property OnLeftMouseButtonClicked: TNotifyEvent read FOnLeftMouseButtonClicked write FOnLeftMouseButtonClicked; 
 // Kann auch was anderes als TNotifyEvent sein ;)
end;

[...]

procedure LeftMouseButtonDown(var Msg : TMouseInput);
begin
  if Assigned(FOnLeftMouseButtonClicked) then
    FOnLeftMouseButtonClicked(Self);
end;