Здравствуйте, помогите, пожалуйста, разобраться, как мне сделать так, чтобы при нажатии кнопки ESC программа останавливалась? Вот код:
Цитата:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key =#27 then
begin
key_esc:=1;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
while(key_esc=0) do
begin
sleep(3000);
SetCursorPos(pt.x * 0 + i, pt.y * 0 +j );
i:=i+10;
end;
|