rigth click on drawing navigator
Posted: 21 Apr 2008, 08:12
Hi, ive tried some code's to achive an event when right clicking on the Cad image, but i just cant get it to work .
I tried on DrawingNavigator.OnMouseDown := clickenmapa;
procedure TForm1.clickenmapa(Sender: TObject;Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then showmessage('Left Button');
if Button = mbRight then showmessage('Right Button');
end;
It only works the right button, but no succes on the left.....any idea why?
I've also set MouseDragging to false, cause i thought maybe that'll be te problem but still no succes....
Thanks
Pavel
I tried on DrawingNavigator.OnMouseDown := clickenmapa;
procedure TForm1.clickenmapa(Sender: TObject;Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then showmessage('Left Button');
if Button = mbRight then showmessage('Right Button');
end;
It only works the right button, but no succes on the left.....any idea why?
I've also set MouseDragging to false, cause i thought maybe that'll be te problem but still no succes....
Thanks
Pavel