1 (edited by RasNikGal 2019-11-27 10:05:58)

Topic: Как создать скрипт нажатия на кнопку несколько раз подряд

Здравствуйте можно ли с помощью скрипта сделать так что бы кнопка нажималась столько раз сколько указано в TextBox?

Заранее спасибо

2 (edited by sibprogsistem 2019-11-27 12:15:48)

Re: Как создать скрипт нажатия на кнопку несколько раз подряд

procedure Form1_Edit1_OnChange (Sender: TObject);
var i:integer;
begin
i:=0;
While i <> Form1.Edit1.Value do
begin
i:=i+1;
sleep(1000);
Application.ProcessMessages;
Form1.Button1.Click;
Form1.Label1.Caption:='кнопка нажата '+ IntToStr(i )+' раз';
end;
end;

Re: Как создать скрипт нажатия на кнопку несколько раз подряд

Спасибо