Duvida em Panel

Question

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

_rodfaria_ · Answer

� 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;

Edilcimar · Answer

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

Voruss · Answer

Pegue este exemplo que montei, deve ajudar.Qualque coisa me avisa.//www.voruss.com.br/panel.rar...

Carlosrm · Answer

felipeiwOutra 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:...