Pages

Subscribe:

About

Blog Ini membahas Tentang Delphi dari Tutorial, Source code, hingga Programming *Exe. Bersumber dari http://olvandra.blogspot.com

Sabtu, 06 April 2013

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===============

3 komentar:

ry4n_xzone mengatakan...

mas bro, mau nanya nih
buat disable CTRL+ALT+ESC gimana codingnya?
makasih atas bantuanya

Andra mengatakan...

To slamet Riyanto :

sory mas baru bisa balas.. coz baru buka nih,,

Untuk Key windows,,CTRL+ALT+ESC saya kurang paham mas... gx penah pake.. coba di www.delphi.about.com

ry4n_xzone mengatakan...

makasih mas bro , dah solved kok
ane utak atik sendiri mas bro :)

Posting Komentar

Untuk Mengurangi SPAM .Gunakan Kata-kata yang sewajarnya, sopan dalam tutur kata berbahasa. Sekian Terima kasih.

Visitor