Если я делаю так, то Esc не срабатывает :
PHP код:
var
Form1: TForm1;
Tag: char;
i,j:integer;
pt: Tpoint;
implementation
{$R *.dfm}
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key=#27 then Tag:=1;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
while Tag = 0 do
begin
sleep(3000);
SetCursorPos(pt.x * 0 + i, pt.y * 0 +j );
Mouse_event(MouseEventf_LeftDown,480,200,0,0);
Mouse_event(MouseEventf_LeftUp,480,200,0,0);
i:=i+10;
Application.ProcessMessages;
end;
Close;
end;
end.
Но стоит убрать
PHP код:
Mouse_event(MouseEventf_LeftDown,480,200,0,0);
Mouse_event(MouseEventf_LeftUp,480,200,0,0);
И кнопка срабатывает. Как я понимаю это связано с функцией, но как это исправить не понимаю, разъясните, если возможно, пожалуйста