Incompatible types FormKeyDown

17/01/2019

14

Bom dia , estou com um problema que não estou conseguindo solucionar.
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

Lucas Domiciano

Responder

Posts

17/01/2019

Thalles Oliveira

if key = #13 then
begin
(SUA FUNÇÃO)
end;

se não der certo você deve estar vinculando no lugar errado, tente no OnKeyPress.
Responder

17/01/2019

Lucas Domiciano

O problema é que no OnKeyDown não reconhece nada.
Ex:
 Key = VK_F1 ou Key = VK_RETURN
Responder

17/01/2019

Thalles Oliveira

Propriedade do form está KeyPreview = True ? poste o código da unit qualquer coisa ou a procedure..

Responder

18/01/2019

Lucas Domiciano

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

18/01/2019

Thalles Oliveira

Lucas, poste seu código p/ melhor análise...

...


aguardo !
Responder

21/01/2019

Lucas Domiciano

Lucas, poste seu código p/ melhor análise...

...


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

23/01/2019

Thalles Oliveira

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

24/01/2019

Hélio Devmedia

Lucas, poste seu código p/ melhor análise...<br />
<br />
<br />
...<br />
<br />
<br />
aguardo !
<br />
<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 />
<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 />
<br />
Lucas, eu gostaria de ajudar, inclua o código desde a palavra PROCEDURE do evento que você tá implementando por favor!
Responder

24/01/2019

Hélio Devmedia

Lucas, eu gostaria de ajudar, inclua o código desde a palavra PROCEDURE do evento que você tá implementando por favor?
Responder

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

Aceitar