Конкин Евгений в 19:09, 16 мая 2008

2008-05-16T19:09:38Z

Новая страница

Данный пример показывает как с помощью API поменять назначение кнопок мыши, т.е. левая кнопка начинает выполнять назначение правой и наоборот.

'''Исходный код написан на Delphi под ОС Windows XP'''


unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
XPManifest1: TXPManifest;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 end;
var
Form1: TForm1;

implementation 

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 begin
SwapMouseButton(true)
 end;

procedure TForm1.Button2Click(Sender: TObject);
 begin
SwapMouseButton(false)
 end;

end.

Меняем местами кнопки мышки - История изменений

Конкин Евгений в 19:09, 16 мая 2008