Eventos OnMouseDown, OnMouseMove, OnMouseUp
14/02/2003
0
Alguém gente fina poderia explicar a diferença entre os 3 eventos abaixo ?
Gratissimo !!!
:wink:
OnMouseDown
OnMouseMove
OnMouseUp
Gratissimo !!!
:wink:
OnMouseDown
OnMouseMove
OnMouseUp
Anonymous
Curtir tópico
+ 0
Responder
Posts
14/02/2003
Okama
he, he.
Coloque esse código no seu form e veja vc mesmo:
ONMOUSEMOVE
==========
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Caption := ´X: ´+inttoStr(X) + ´ - Y: ´+IntToStr(Y);
end;
ONMOUSEDOWN
===========
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Label2.Caption := ´Mouse Down em X: ´+IntToStr(X)+´ - Y: ´+IntToStr(Y);
end;
ONMOUSEUP
========
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Label3.Caption := ´Mouse UP em X: ´ +IntToStr(X)+´ - Y: ´+IntToStr(Y);;
end;
Mova, Clique arraste e solte.
Um Abraço,
Coloque esse código no seu form e veja vc mesmo:
ONMOUSEMOVE
==========
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Caption := ´X: ´+inttoStr(X) + ´ - Y: ´+IntToStr(Y);
end;
ONMOUSEDOWN
===========
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Label2.Caption := ´Mouse Down em X: ´+IntToStr(X)+´ - Y: ´+IntToStr(Y);
end;
ONMOUSEUP
========
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Label3.Caption := ´Mouse UP em X: ´ +IntToStr(X)+´ - Y: ´+IntToStr(Y);;
end;
Mova, Clique arraste e solte.
Um Abraço,
Responder
Clique aqui para fazer login e interagir na Comunidade :)