delphi±àд×é¼þ

unit PointSelect;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  ComObj, ActiveX, yj_TLB, StdVcl, esriSystemUI_TLB,esriControls_TLB,esriCarto_TLB;

type
  TPointSelect = class(TAutoObject, ICommand, ITool)
  protected
    function Get_Bitmap: OLE_HANDLE; safecall;
    function Get_Caption: WideString; safecall;
    function Get_Category: WideString; safecall;
    function Get_Checked: WordBool; safecall;
    function Get_Enabled: WordBool; safecall;
    function Get_HelpContextID: Integer; safecall;
    function Get_HelpFile: WideString; safecall;
    function Get_Message: WideString; safecall;
    function Get_Name: WideString; safecall;
    function Get_Tooltip: WideString; safecall;
    procedure OnClick; safecall;
    procedure OnCreate(const hook: IDispatch); safecall;
    function Deactivate: WordBool; safecall;
    function Get_Cursor: OLE_HANDLE; safecall;
    function OnContextMenu(x, y: Integer): WordBool; safecall;
    procedure OnDblClick; safecall;
    procedure OnKeyDown(keyCode, shift: Integer); safecall;
    procedure OnKeyUp(keyCode, shift: Integer); safecall;