Цитата:
|
Сообщение от v1s2222
Код:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key=#27 then Tag:=1;
end;
...
button1click...
begin
while(tag=0) do begin// перемещаю курсор
Sleep(3000); // ВНИМАНИЕ! если ты ставишь слип на 3 сек, то даже если человек нажмет esc, то выход произойдет через 3секунды...
...
end;
.... |
Правильно, все-таки, будет исходник скинуть, когда домой приду, т.к. дело не в sleep. Я вот думаю (как дилетант), а может она в функциях зацикливается:
Mouse_event(MouseEventf_LeftDown,480,200,0,0);
Mouse_event(MouseEventf_LeftUp,480,200,0,0);