 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
gumattos
Novato
Registrado: Segunda-Feira, 14 de Setembro de 2009
Mensagens: 46
|
 Enviada: Dom Abr 04, 2010 9:11 pm Assunto: [RESOLVIDO] Fazer Shape se mover na diagonal |
 |
|
Olá a todos, ultimamente eu ando querendo fazer um shape se mover usando as setinhas(bem divertido até), mas estou com um problema catito, nao consigo fazer o Shape ir na diagonal, já tentei várias coisas, mas nenhum dá resultados, se alguem puder dar uma help...
| Código: | case Key OF
VK_LEFT : Shape1.Left := Shape1.Left -5;
VK_UP : Shape1.Top := Shape1.Top -5;
VK_RIGHT : Shape1.Left := Shape1.Left +5;
VK_DOWN : Shape1.Top := Shape1.Top +5; |
Editado pela última vez por gumattos em Qua Abr 07, 2010 11:38 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
lucas_alves
Colaborador
Registrado: Domingo, 30 de Agosto de 2009
Mensagens: 1632
Localização: São Gonçalo - Rio de Janeiro
|
| Enviada: Dom Abr 04, 2010 9:23 pm Assunto: Re: [DUVIDA] Fazer Shape se mover na diagonal |
|
|
| gumattos escreveu: | Olá a todos, ultimamente eu ando querendo fazer um shape se mover usando as setinhas(bem divertido até), mas estou com um problema catito, nao consigo fazer o Shape ir na diagonal, já tentei várias coisas, mas nenhum dá resultados, se alguem puder dar uma help...
| Código: | case Key OF
VK_LEFT : Shape1.Left := Shape1.Left -5;
VK_UP : Shape1.Top := Shape1.Top -5;
VK_RIGHT : Shape1.Left := Shape1.Left +5;
VK_DOWN : Shape1.Top := Shape1.Top +5; |
|
| Código: |
//Diagonal
: BEGIN
Shape1.Top:=Shape1.Top-5;
Shape1.Left:=Shape1.Left+5;
END; |
Eu acho que é isso, não testei.
Abraços!!!
_________________
Agora eu também programo em PHP. |
|
| Voltar ao Topo |
|
|
gumattos
Novato
Registrado: Segunda-Feira, 14 de Setembro de 2009
Mensagens: 46
|
| Enviada: Dom Abr 04, 2010 9:33 pm Assunto: Re: [DUVIDA] Fazer Shape se mover na diagonal |
|
|
| lucas_alves escreveu: | | gumattos escreveu: | Olá a todos, ultimamente eu ando querendo fazer um shape se mover usando as setinhas(bem divertido até), mas estou com um problema catito, nao consigo fazer o Shape ir na diagonal, já tentei várias coisas, mas nenhum dá resultados, se alguem puder dar uma help...
| Código: | case Key OF
VK_LEFT : Shape1.Left := Shape1.Left -5;
VK_UP : Shape1.Top := Shape1.Top -5;
VK_RIGHT : Shape1.Left := Shape1.Left +5;
VK_DOWN : Shape1.Top := Shape1.Top +5; |
|
| Código: |
//Diagonal
: BEGIN
Shape1.Top:=Shape1.Top-5;
Shape1.Left:=Shape1.Left+5;
END; |
Eu acho que é isso, não testei.
Abraços!!! |
Amigo, já tentei
| Código: |
VK_DOWN + VK_LEFT: BEGIN
Shape1.Top:=Shape1.Top-5;
Shape1.Left:=Shape1.Left+5; |
Não rolou |
|
| Voltar ao Topo |
|
|
lucas_alves
Colaborador
Registrado: Domingo, 30 de Agosto de 2009
Mensagens: 1632
Localização: São Gonçalo - Rio de Janeiro
|
| Enviada: Dom Abr 04, 2010 10:04 pm Assunto: Re: [DUVIDA] Fazer Shape se mover na diagonal |
|
|
| gumattos escreveu: | | lucas_alves escreveu: | | gumattos escreveu: | Olá a todos, ultimamente eu ando querendo fazer um shape se mover usando as setinhas(bem divertido até), mas estou com um problema catito, nao consigo fazer o Shape ir na diagonal, já tentei várias coisas, mas nenhum dá resultados, se alguem puder dar uma help...
| Código: | case Key OF
VK_LEFT : Shape1.Left := Shape1.Left -5;
VK_UP : Shape1.Top := Shape1.Top -5;
VK_RIGHT : Shape1.Left := Shape1.Left +5;
VK_DOWN : Shape1.Top := Shape1.Top +5; |
|
| Código: |
//Diagonal
: BEGIN
Shape1.Top:=Shape1.Top-5;
Shape1.Left:=Shape1.Left+5;
END; |
Eu acho que é isso, não testei.
Abraços!!! |
Amigo, já tentei
| Código: |
VK_DOWN + VK_LEFT: BEGIN
Shape1.Top:=Shape1.Top-5;
Shape1.Left:=Shape1.Left+5; |
Não rolou |
Esse tipo de combinação de teclas não da pra fazer (Pelo menos eu não sei).
_________________
Agora eu também programo em PHP. |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
