Mover Panel
Tem como mover um componente TPanel em tempo de execução?
Voruss
Curtidas 0
Respostas
Salsa
08/04/2004
eh soh mudar a posiçao dele ...
ex ...
vc poe um botao ... e qndo clicka nele .. ele anda ate metade do form ... ae vc muda as propriedades de top letf ... e talz ...
ex ...
panel1.left := panel1.left +1;
ae tu faz a rotina pra ele ir se movendo com um timer .. ate determinada posiçao ;)
ex ...
vc poe um botao ... e qndo clicka nele .. ele anda ate metade do form ... ae vc muda as propriedades de top letf ... e talz ...
ex ...
panel1.left := panel1.left +1;
ae tu faz a rotina pra ele ir se movendo com um timer .. ate determinada posiçao ;)
GOSTEI 0
Maxwell_monteiro
08/04/2004
se vc esta falando de mudar de posição, tem como!
se vc esta falando de arrastar, também tem como!
se vc esta falando de arrastar, também tem como!
GOSTEI 0
Voruss
08/04/2004
oi Maxwell_Monteiro
Preciso arrastar o TPanel.
Preciso arrastar o TPanel.
GOSTEI 0
Maxwell_monteiro
08/04/2004
Vamos lá!
Vc deve ter um form e um panel dentro desse form então va na propriedade DragMode do form e coloque como dmAutomatic depois va no evento onDragOver do form e coloque isso:
if(Source is TPAnel)then
Accept := True;
no evento onEndDrag do Panel coloque o seguite:
Panel1.Top := Y;
Panel1.Left := X;
Pronto seu Panel pode ser arrastado pelo form
Vc deve ter um form e um panel dentro desse form então va na propriedade DragMode do form e coloque como dmAutomatic depois va no evento onDragOver do form e coloque isso:
if(Source is TPAnel)then
Accept := True;
no evento onEndDrag do Panel coloque o seguite:
Panel1.Top := Y;
Panel1.Left := X;
Pronto seu Panel pode ser arrastado pelo form
GOSTEI 0
Voruss
08/04/2004
oi Maxwell_Monteiro
Configurei um Form + um TPanel da forma que vc descreveu, + nao funcionou.
Configurei um Form + um TPanel da forma que vc descreveu, + nao funcionou.
GOSTEI 0
Maxwell_monteiro
08/04/2004
Entao tenta colocar o DragMode do Panel como dmAutomatic
GOSTEI 0