Munculkan NUM,CAP,SCRL di TstatusBar

Tutorial kali ini adalah cara Munculkan NUM,CAP,SCRL di TstatusBar pada program. dengan Mengunakan event Key Press kita bisa melihat status NUM,CAP, SCRL aktif atau tidak. langsung saja turorialnya

Source code bisa di Download :
Via Mediafire
>Download<

Via 4Shared
>Download<

listing Lengkap



====================Begin Code==============
unit Unit1;
// PROGRAM MEMUNCULKAN FUNGSI KEYBOARD KE DALAM KOMPONENT TSTATUSBAR  //
// http://olvandra.blogspotcom

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls, XPMan;

type
  TForm1 = class(TForm)
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    Label1: TLabel;
    XPManifest1: TXPManifest;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  with StatusBar1 do
  begin
    if GetKeyState(VK_CAPITAL) <> 0 then  //JIKA TOMBOL KEYBOARD CAPLOCK DITEKAN
      StatusBar1.Panels[1].Text := ' CAP' //STATUSBAR1 BERTULISKAN CAP
    else
      StatusBar1.Panels[1].Text := '';    //JIKA CAPLOCK DI TEKAN KEMBALI MATIKAN TULISAN CAP PADA STATUSBAR1
    if GetKeyState(VK_NUMLOCK) <> 0 then
      StatusBar1.Panels[2].Text := ' NUM'
    else
      StatusBar1.Panels[2].Text := '';
    if GetKeyState(VK_SCROLL) <> 0 then
      StatusBar1.Panels[3].Text := ' SCRL'
    else
      StatusBar1.Panels[3].Text := '';
      StatusBar1.Panels[4].Text := 'http://olvandra.blogspot.com';
      StatusBar1.Panels[0].Text := 'KEY';
    end;
end;

end.

==================END CODE===============