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.
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:
Posting Komentar
Silahkan tinggalkan komentar Anda...