[Bug 40988] mouse_event doesn't work
wine-bugs at winehq.org
wine-bugs at winehq.org
Wed Jul 20 12:40:52 CDT 2016
https://bugs.winehq.org/show_bug.cgi?id=40988
--- Comment #2 from proggi <proggi at yandex.ru> ---
Embarcadero XE7
1) new project
2) code
unit Unit1;
interface
uses
Winapi.Windows,
Winapi.Messages,
System.SysUtils,
System.Variants,
System.Classes,
Vcl.Graphics,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs, Vcl.StdCtrls;
type
TForm1=class(TForm)
Button1 : TButton;
procedure Button1Click(Sender : TObject);
private
{Private declarations}
public
{Public declarations}
end;
var
Form1 : TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender : TObject);
begin
sleep(5000);
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
sleep(80);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;
end.
3) RUN!!!
On click Botton1, Sleep 5 sek to position cursor.
--
Do not reply to this email, post in Bugzilla using the
above URL to reply.
You are receiving this mail because:
You are watching all bug changes.
More information about the wine-bugs
mailing list