Movendo um Componente em Run-Time

[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.

Editado Maio 10, 2005 por Progr'amador