Incompatible types FormKeyDown
Bom dia , estou com um problema que não estou conseguindo solucionar.
Tenho um trecho de um código no evento FormKeyDown .
Porém está dando erro de Incompatible types, esse código já existia estou apenas fazendo uma alteração necessária, eu dei uma olhada parece ser minha configuração do Delphi 7. Alguém sabe o que pode ser ?
Tenho um trecho de um código no evento FormKeyDown .
if Key = 13 then begin end;
Porém está dando erro de Incompatible types, esse código já existia estou apenas fazendo uma alteração necessária, eu dei uma olhada parece ser minha configuração do Delphi 7. Alguém sabe o que pode ser ?
Lucas Domiciano
Curtidas 1
Respostas
Thalles Oliveira
17/01/2019
if key = #13 then
begin
(SUA FUNÇÃO)
end;
se não der certo você deve estar vinculando no lugar errado, tente no OnKeyPress.
begin
(SUA FUNÇÃO)
end;
se não der certo você deve estar vinculando no lugar errado, tente no OnKeyPress.
GOSTEI 0
Lucas Domiciano
17/01/2019
O problema é que no OnKeyDown não reconhece nada.
Ex:
Ex:
Key = VK_F1 ou Key = VK_RETURN
GOSTEI 0
Thalles Oliveira
17/01/2019
Propriedade do form está KeyPreview = True ? poste o código da unit qualquer coisa ou a procedure..
GOSTEI 0
Lucas Domiciano
17/01/2019
Propriedade do form está KeyPreview = True ? poste o código da unit qualquer coisa ou a procedure..
Está True sim, eu não sei porque está dando erro de incompatible types ... Será que é configuração do delphi ?
GOSTEI 0
Thalles Oliveira
17/01/2019
Lucas, poste seu código p/ melhor análise...
aguardo !
...
aguardo !
GOSTEI 0
Lucas Domiciano
17/01/2019
Lucas, poste seu código p/ melhor análise...
aguardo !
...
aguardo !
if (key = 13) and (cb_1.Checked or cb_2.Checked or cb_3.Checked) then begin if (key = 13) and (cb_1.Checked) then begin cb_2.Checked := True; CheckBox2.Checked := True; end else if (key = 13) and (cb_2.Checked) then begin cb_3.Checked := True; CheckBox2.Checked := True; if vid_call_pm = 'PR' then pm_pronta; end else if (key = 13) and (cb_3.Checked) then begin cb_3.Checked := False; CheckBox2.Checked := True; pm_pronta; end; end; {} if (key = VK_LEFT) or (key = VK_RIGHT) then begin CheckBox2.Checked := False; Timer3.Enabled := True; end;
Aí está um trecho do código, lembrando que este programa ele funciona normalmente, só que quando na hora de compilar o delphi não reconheci esses comandos VK_LEFT, 13 , VK_RIGHT.
GOSTEI 0
Thalles Oliveira
17/01/2019
remova esta parte e faça um teste, por favor!
if (key = VK_LEFT) or (key = VK_RIGHT) then begin CheckBox2.Checked := False; Timer3.Enabled := True; end;
GOSTEI 0
Hélio Devmedia
17/01/2019
Lucas, poste seu código p/ melhor análise...<br />
<br />
<br />
<br />
aguardo !
<br /><br />
<br /> ...<br />
<br />
aguardo !
<br />
<br /> if (key = 13) and (cb_1.Checked or cb_2.Checked or cb_3.Checked) then begin<br /> <br /> if (key = 13) and (cb_1.Checked) then begin<br /> cb_2.Checked := True;<br /> CheckBox2.Checked := True;<br /> end else if (key = 13) and (cb_2.Checked) then begin<br /> cb_3.Checked := True;<br /> CheckBox2.Checked := True;<br /> if vid_call_pm = ''PR'' then pm_pronta;<br /> end else if (key = 13) and (cb_3.Checked) then begin<br /> cb_3.Checked := False;<br /> CheckBox2.Checked := True;<br /> pm_pronta;<br /> end;<br /> end;<br /> {}<br /> <br /> if (key = VK_LEFT) or (key = VK_RIGHT) then begin<br /> CheckBox2.Checked := False;<br /> Timer3.Enabled := True;<br /> end;<br />
<br />
Aí está um trecho do código, lembrando que este programa ele funciona normalmente, só que quando na hora de compilar o delphi não reconheci esses comandos VK_LEFT, 13 , VK_RIGHT.
<br />
Lucas, eu gostaria de ajudar, inclua o código desde a palavra PROCEDURE do evento que você tá implementando por favor!
GOSTEI 0
Hélio Devmedia
17/01/2019
Lucas, eu gostaria de ajudar, inclua o código desde a palavra PROCEDURE do evento que você tá implementando por favor?
GOSTEI 0