Duvida em Panel
É possivel em tempo de execucao, o usuario movimentar um panel, como se fosse um form?
Abs
Abs
Felipeiw
Curtidas 0
Respostas
_rodfaria_
18/11/2005
É possível. Por exemplo, configure a propriedade Keypreview para true e coloque este código no evento OnKeyUp do form.
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;
GOSTEI 0
Edilcimar
18/11/2005
não esqueça de fazer a verificação, no exemplo do rodfaria para evitar números negativos ou vai dar erro
GOSTEI 0
Voruss
18/11/2005
Pegue este exemplo que montei, deve ajudar.
Qualque coisa me avisa.
http://www.voruss.com.br/panel.rar
Qualque coisa me avisa.
http://www.voruss.com.br/panel.rar
GOSTEI 0
Carlosrm
18/11/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:
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:
GOSTEI 0