[fpc-pascal] Pause Key

[Martin Wynne]

On 14/04/2023 01:31, James Richters via fpc-pascal wrote:
> Does anyone know what's up with the Pause key in Windows?
> Is there some way to tell if it was pushed?
> 
Hi James,

//____________________________

Tform.FormKeyDown(Sender:TObject; var Key:Word; Shift:TShiftState);

begin

if Key=VK_PAUSE then
begin
  do_something;
  Key:=0;
end;

end;
//_____________________________

cheers,

Martin.