Delphi dicas

Como verificar se o botão do mouse está precionado

{atenção aqui possuem 2 programas leia antes de colocar}

{esse programa verifica se o botão do mouse está precionado}





{crie Um Timer E ponha o nome Timer1}

unit Unit1;



interface



uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls;



type

        TForm1 = class(TForm)

        Timer1: TTimer;

        procedure Timer1Timer(Sender: TObject);

        private

        { Private declarations }

        public

        { Public declarations }

end;



var

Form1: TForm1;

MouseB1,MouseB2:boolean;

implementation



{$R *.dfm}



procedure TForm1.Timer1Timer(Sender: TObject);

begin

        Timer1.Interval:=1;

        if GetAsyncKeyState(VK_LBUTTON) = -32768 then

        begin

                MouseB1 := true;

        end

        else

        begin

                MouseB1 := false;

        end;

        if GetAsyncKeyState(VK_RBUTTON) = -32768 then

        begin

                MouseB2 :=true;

        end

        else

        begin

                MouseB2 := false;

        end;

end;



end.

{esse programa vai colocar na variavel MouseB1 e MouseB2

true para quando o botão do mouse estiver precionado e

false para quando estiver solto}

{em caso de problema use o programa abaixo para saber o

o numero do seu mouse}



{crie uma label com o nome label1 e um timer com o nome timer1}



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;



type

        TForm1 = class(TForm)

        Timer1: TTimer;

        Label1: TLabel;

        procedure Timer1Timer(Sender: TObject);

        private

        { Private declarations }

        public

        { Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.Timer1Timer(Sender: TObject);

var

MouseB1,MouseB2 : integer;

begin

        timer1.Interval:=1;

        label1.caption := inttostr (GetAsyncKeyState(VK_LBUTTON));

        {aqui ele poe na label1 numero que ele obtem pelo mouse

        quando o botão esquerdo está precionado}

end;



end.





{quando o botão do mouse esta precionado aparece um numero na label

se o numero for diferente de -32768 substitua no primeiro programa

na expresão if GetAsyncKeyState(VK_RBUTTON) = -32768 then

(coloque no lugar do -32768 o numero obtido)}

por : Jose Aurelio