Array
(
)

Duvida em Panel

Felipeiw
   - 18 nov 2005

É possivel em tempo de execucao, o usuario movimentar um panel, como se fosse um form?
Abs


_rodfaria_
   - 18 nov 2005

É possível. Por exemplo, configure a propriedade Keypreview para true e coloque este código no evento OnKeyUp do form.
#Código


procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_DOWN: Panel1.Top:=Panel1.Top+5;
VK_UP: Panel1.Top:=Panel1.Top-5;
VK_LEFT: Panel1.Left:=Panel1.Left-5;
VK_RIGHT: Panel1.Left:=Panel1.Left+5;
end;
end;



Edilcimar
   - 18 nov 2005

não esqueça de fazer a verificação, no exemplo do rodfaria para evitar números negativos ou vai dar erro


Voruss
   - 19 nov 2005

Pegue este exemplo que montei, deve ajudar.

Qualque coisa me avisa.

http://www.voruss.com.br/panel.rar


Carlosrm
   - 20 nov 2005

felipeiw

Outra opção:

Se quiser arrastar o TPanel (ou qualquer outro componente) com o uso do mouse, dê uma olhada em Dicas e Macetes (Movendo Componentes em Tempo de Execução). Funfa beleza!

carlosrm :wink: