Fórum VK da Barrinha ( / ) #448575

14/07/2013

0

Delphi

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

Responder

Posts

14/07/2013

Manoel Jr

^^ O VK da barrinha é o VK_DIVIDE equivale ao '/' do teclado numérico ^^
Responder

Gostei + 0

14/07/2013

Manoel Jr

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]
Responder

Gostei + 0

14/07/2013

Deivison Melo

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

Abraços e bons códigos!!
Responder

Gostei + 0

14/07/2013

Bruno Henrique

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
Responder

Gostei + 0

15/07/2013

Bruno Henrique

Alguem Ajuda???
Responder

Gostei + 0

15/07/2013

Bruno Henrique

Bom dia!!!!Estou sem solução ainda!!!
Responder

Gostei + 0

15/07/2013

Manoel Jr

Você colocou seu código em que evento e ativou o a propriedade KeyPreview do form??
Responder

Gostei + 0

15/07/2013

Bruno Henrique

Manoel,boa tarde!!!

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

Gostei + 0

15/07/2013

Rodolpho Silva

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

Gostei + 0

15/07/2013

Bruno Henrique

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...
Responder

Gostei + 0

16/07/2013

Manoel Jr

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.
Responder

Gostei + 0

16/07/2013

Bruno Henrique

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

Gostei + 0

17/07/2013

Manoel Jr

Exato ^^ Matou a charada ^^
Responder

Gostei + 0

17/07/2013

Manoel Jr

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

Gostei + 0

05/03/2014

Bruno Henrique

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
Responder

Gostei + 0

Mais tópicos

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar