source: branches/Independent/Devices/Mouse.pas

unit Mouse;

interface

uses
  Classes, SysUtils;

type
  TGetPositionEvent = function : TPoint of object;

  { TMouse }

  TMouse = class
  private
    FOnGetPosition: TGetPositionEvent;
  public
    function GetPosition: TPoint;
  published
    property OnGetPosition: TGetPositionEvent read FOnGetPosition write FOnGetPosition;
  end;

implementation

{ TMouse }

function TMouse.GetPosition: TPoint;
begin
  if Assigned(FOnGetPosition) then Result := FOnGetPosition
    else Result := Point(0, 0);
end;

end.