Mega Code Archive

 

Categories / Delphi / Hardware

 

Detect insert key status

Title: Detect insert-key status Use GetKeyStatus function with VK_INSERT parameter. procedure TForm1.Button1Click(Sender: TObject); begin if GetKeyState(VK_INSERT)=0 then Label1.Caption:='Insert' else Label1.Caption:='Replace'; end;