Fórum Incompatible types FormKeyDown #599821
17/01/2019
0
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
Curtir tópico
+ 1Posts
17/01/2019
Thalles Oliveira
begin
(SUA FUNÇÃO)
end;
se não der certo você deve estar vinculando no lugar errado, tente no OnKeyPress.
Gostei + 0
17/01/2019
Lucas Domiciano
Ex:
Key = VK_F1 ou Key = VK_RETURN
Gostei + 0
17/01/2019
Thalles Oliveira
Gostei + 0
18/01/2019
Lucas Domiciano
Está True sim, eu não sei porque está dando erro de incompatible types ... Será que é configuração do delphi ?
Gostei + 0
18/01/2019
Thalles Oliveira
...
aguardo !
Gostei + 0
21/01/2019
Lucas Domiciano
...
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
23/01/2019
Thalles Oliveira
if (key = VK_LEFT) or (key = VK_RIGHT) then
begin
CheckBox2.Checked := False;
Timer3.Enabled := True;
end; Gostei + 0
24/01/2019
Hélio Devmedia
<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
24/01/2019
Hélio Devmedia
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)