Touche de saisie enfoncée en pascal libre?

Question

J'essayez ce qui suit, pour capturer la touche « Echap »:

procedure Tform1.FormCreate(Sender: TObject); 
begin 
    KeyPreview := True; 
end;  

procedure TForm1.FormKeyPress(Sender: TObject; var Key: char); 
begin 
    if Key = #27 then 
    begin 
     btnCloseClick(Sender); 
    end; 
end; 

Mais Interrupted lieu un point de débogage, et n'a jamais invoqué la méthode

Je vous remercie de toute aide.

Answer 1

essayer le UTFKeyPress d'événement au lieu:

procedure TForm1.FormUTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char); 
begin 
    if UTF8Key = #27 then 
    btnCloseClick(Sender); 
end;