VK da Barrinha ( / )

Delphi

14/07/2013

Pessoal...Boa noite!!!

Tenho um edit, eu preciso que quando apertar a Barrinha ( / ) chama o outro form!!!Alguem sabe como fazer!!!

Eu tenho assim

if key = vk_/ then
Frm_Cad_Cidades.shomodal;

Mais não deu certo!!!
hehehe

Alguem Ajuda!!!
Abraços

Bruno Henrique

Bruno Henrique

Curtidas 0

Respostas

Manoel Jr

Manoel Jr

14/07/2013

^^ O VK da barrinha é o VK_DIVIDE equivale ao '/' do teclado numérico ^^
GOSTEI 0
Manoel Jr

Manoel Jr

14/07/2013

Baixe esse pdf aqui você vai encontrar muitas informações úteis inclusive a lista das teclas para uso no Delphi entre outras informações.
[url]https://docs.google.com/file/d/0B_hCvHGPLsmYZVhlMnJfSGNVZEE/edit?usp=sharing[/url]
GOSTEI 0
Deivison Melo

Deivison Melo

14/07/2013

Por favor, mencionar se a dica deu certo para encerrarmos o tópico!

Abraços e bons códigos!!
GOSTEI 0
Bruno Henrique

Bruno Henrique

14/07/2013

Boa noite!!!Muito bom o link que ManoelJr passou!!!


Acabei de testar, e infelizmente não deu certo!!!

Eu usei assim no evento onkeydown

if key=vk_divide then
frm_cad_cidades.showmodal

e não deu certo!!!

ai eu fiz assim ele abriu, mais verifique que qualquer tecla que eu pressiono o form é aberto

if vk_divide = 111 then
frm_cad_cidades.showmodal

O que eu faço???

Abraçõs
GOSTEI 0
Bruno Henrique

Bruno Henrique

14/07/2013

Alguem Ajuda???
GOSTEI 0
Bruno Henrique

Bruno Henrique

14/07/2013

Bom dia!!!!Estou sem solução ainda!!!
GOSTEI 0
Manoel Jr

Manoel Jr

14/07/2013

Você colocou seu código em que evento e ativou o a propriedade KeyPreview do form??
GOSTEI 0
Bruno Henrique

Bruno Henrique

14/07/2013

Manoel,boa tarde!!!

Eu coloquei meu codigo no evendo onkeydown e eu ativei sim o keypreview.Porem não deu certo!!!
GOSTEI 0
Rodolpho Silva

Rodolpho Silva

14/07/2013

Bruno,

Acabei de testar e funcionou:
procedure TMyForm.edt1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  if (Key = VK_DIVIDE) then
    ShowMessage(IntToStr(Key));
end;
GOSTEI 0
Bruno Henrique

Bruno Henrique

14/07/2013

Nossa tá dificil em...só no meu que não dá certo!!! já estou desistindo já!!!

Eu troquei o vk_divide por vk_f5 e deu certo...por que com o vk_divide não...
GOSTEI 0
Manoel Jr

Manoel Jr

14/07/2013

Esse Edit que você está usando é um Tedit normal ou é de algum componente, porque se você fez com o F5 e funcionou talvés o Edit que você está usando está filtrando teclas. EX se ele só aceita números talves ele esteja filtrando a tecla da barra.
GOSTEI 0
Bruno Henrique

Bruno Henrique

14/07/2013

Sim, é um TEdit normal!!!
Estou em um notebook!!!Será que é isso???Pois não tem o teclado númerico né!!!
GOSTEI 0
Manoel Jr

Manoel Jr

14/07/2013

Exato ^^ Matou a charada ^^
GOSTEI 0
Manoel Jr

Manoel Jr

14/07/2013

Exato ^^ Matou a charada ^^

Use esse código aqui que ele vai retornar o codigo de sua tecla.

var Key: Word; Shift: TShiftState);
begin
  inherited;
  if (Key = VK_DIVIDE) then
    ShowMessage(IntToStr(Key));
end;
GOSTEI 0
Bruno Henrique

Bruno Henrique

14/07/2013

Pessoal consegui depois de muito tempo eis a solução para abir com / o form

If KEY = #47 THEN
Form2.show;


Só colocar no evento onkeypress do edit

Abraços

POST RESOLVIDO
GOSTEI 0
Nelson Santos

Nelson Santos

14/07/2013

Desenvolva softwares 3D em Delphi 7
www.3dsistemas.com.br
GOSTEI 0
POSTAR