کدی برای تست روشن بودن چراغ های سه گانه

public
procedure CheckCapslock;
procedure CheckNumlock;
procedure CheckInslock;
procedure CheckScrlock;
{ public declarations }
end;

procedure TForm1.CheckCapslock;
begin
if Odd (GetKeyState (VK_CAPITAL)) then
StatusBar1.Panels[1].Text := 'Caps'
else
StatusBar1.Panels[1].Text := '';
end;

procedure TForm1.CheckNumlock;
begin
if Odd (GetKeyState (VK_NUMLOCK)) then
StatusBar1.Panels[2].Text := 'Num'
else
StatusBar1.Panels[2].Text := '';
end;

procedure TForm1.CheckInslock;
begin
if Odd (GetKeyState (VK_INSERT)) then
StatusBar1.Panels[3].Text := 'Ins'
else
StatusBar1.Panels[3].Text := '';
end;

procedure TForm1.CheckScrlock;
begin
if Odd (GetKeyState (VK_SCROLL)) then
StatusBar1.Panels[4].Text := 'Scr'
else
StatusBar1.Panels[4].Text := '';
end;

procedure TForm1. Timer1Timer(Sender: TObject);
begin
CheckCapslock;
end;

procedure TForm1. Timer2Timer(Sender: TObject);
begin
CheckNumlock;
end;

procedure TForm1. Timer3Timer(Sender: TObject);
begin
CheckInslock;
end;

procedure TForm1. Timer4Timer(Sender: TObject);
begin
CheckScrlock;
end;

امیدوارم از کد ها خوشتون اومده باشه اگه سوال یا کامپوننتی خواستید می تونید در بخش نظر ها مطرح کنید تا طرف مدت ۲ روز

به شما پاسخ داده شود لطفا نظر یادتون نرود

باتشکر <<مرد تنها>>