10 Apr 2009

MENUKAR TOMBOL MOUSE AKTIF




Tombol mouse aktif dapat ditukar posisinya [kanan/kiri] dengan perintah
SwapMouseButton(true);
Untuk menukar posisi klik kanan pada tombol kiri mouse, dan perintah
SwapMouseButton(false);
Untuk menukar ke posisi default.


Listing Program :

...
type
TForm1 = class(TForm)
ButtonKiri: TButton;
ButtonKanan: TButton;
procedure ButtonKiriClick(Sender: TObject);
procedure ButtonKananClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ButtonKananClick(Sender: TObject);
begin
// Menukar arti tombol mouse
SwapMouseButton(true);
end;

procedure TForm1.ButtonKiriClick(Sender: TObject);
begin
// Mengeset arti tombol mouse ke kondisi default
SwapMouseButton(false);
end;


DOWNLOAD SOURCE

0 komentar:

Poskan Komentar

Silahkan tinggalkan komentar Anda...

 

Bhirawa Anoraga Copyright © 2009