Duvida em Panel

Delphi

18/11/2005

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


Felipeiw

Felipeiw

Curtidas 0

Respostas

_rodfaria_

_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

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

Voruss

18/11/2005

Pegue este exemplo que montei, deve ajudar.

Qualque coisa me avisa.

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


GOSTEI 0
Carlosrm

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:


GOSTEI 0
POSTAR