==如何在状态条中显示Num Lock键的状态？？===

Question

procedure TForm1.Timer1Timer(Sender: TObject);
var
  vKeyboardState: TKeyboardState;
begin
  GetKeyboardState(vKeyboardState);
  if vKeyboardState[VK_NUMLOCK] <> 0 then
    StatusBar1.Panels[1].Text := 'NUM LOCK'
  else StatusBar1.Panels[1].Text := '';
  if vKeyboardState[VK_CAPITAL] <> 0 then
    StatusBar1.Panels[2].Text := 'CAPS LOCK'
  else StatusBar1.Panels[2].Text := '';
  //Insert你自己判断
end;

Answer 1

if vKeyboardState[VK_INSERT] <> 0 then
    StatusBar1.Panels[3].Text := 'Ins'
  else StatusBar1.Panels[3].Text := '';非常感谢！