OnMouseMovie

[jcvilanova 0]

Bem pessoal,vi um efeito interessante uma certa vez, ao adentrar num site. Havia um espécie de relógio com duas corôas rodando em sentidos contrários. A maior mostrava um calendário com Dia/Mês e ano... em sentido anti horário. A segunda mais interna... mostrava um relógio...em sentido horário. Interessante é que ao movimentar o Mouse... o objeto seguia o Mouse... se desmanchando inteiro... e ao parar... ele voltava forma original... É POSSÍVEL FAZER ALGO PARECIDO EM DELPHI? ALGUÉM PODERIA ME DAR UMA DICA...João

[Mordegarius 0]

Cara... tem sim...segue um exemplo, talvez ajude no que você precisa...procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin with Animate1 do begin Top:= Y; Left:= X; end;end;[]'s