[Bug 40988] mouse_event doesn't work

https://bugs.winehq.org/show_bug.cgi?id=40988

--- Comment #2 from proggi <proggi(a)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.