Guest Bruna Posted April 20, 2005 Report Share Posted April 20, 2005 (edited) Movendo um Componente em Run-TimeNo exemplo abaixo deve ser incluído um componente Button. Para testar este exemplo mantenha a tecla CTRL pressionada clique com o mouse no componente Button. Feito isto, basta arrastar o componente Button para qualquer lado.type TForm1 = class(TForm)Button1: TButton;procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);procedure Button1MouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);VEJA NA ÍNTEGRA EM www.tcsystems.com.brTEM muita coisa interessante, confiram!!!----------- Movido - Progr'amador --------------Aki fica mais adequado. Edited May 10, 2005 by Progr'amador Quote Link to comment Share on other sites More sharing options...
Question
Guest Bruna
Movendo um Componente em Run-Time
No exemplo abaixo deve ser incluído um componente Button.
Para testar este exemplo mantenha a tecla CTRL pressionada
clique com o mouse no componente Button.
Feito isto, basta arrastar o componente Button para qualquer lado.
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
procedure Button1MouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
VEJA NA ÍNTEGRA EM www.tcsystems.com.br
TEM muita coisa interessante, confiram!!!
----------- Movido - Progr'amador --------------
Aki fica mais adequado.
Edited by Progr'amadorLink to comment
Share on other sites
0 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.