Mouse - esconder o cursor da form desejado

Top  Previous  Next

Como esconder o mouse do form desejado

(esta dica foi encontrada neste site http://delphi.about.com/library/weekly/aa072799.htm)

 

type

  TForm2 = class(TForm)

    Label1: TLabel;

  private

    { Private declarations }

    procedure CMMouseEnter(var msg: TMessage); message CM_MOUSEENTER;

    procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;

  public

    { Public declarations }

  end;

  

  

procedure TForm2.CMMouseEnter(var msg: TMessage);

begin

  ShowCursor(False);

end;

 

procedure TForm2.CMMouseLeave(var msg: TMessage);

begin

  ShowCursor(True);

end;

 

Nos meus teste funcionou perfeitamente