Click example for Delphi

This example demonstrates the Click event.

procedure TForm1.LEADRasterView1Click (Sender: TObject);
begin
   //This example, on a click event, toggles between the default
   //mouse pointer.
   if (LEADRasterView1.MousePointer = 0) then
   begin
      LEADRasterView1.MousePointer:= 12;
   end
   else
      LEADRasterView1.MousePointer:= 0;
end;