[Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

22.02.2009, 20:04

KIR@PRO

Постоянный

Регистрация: 26.12.2007

Сообщений: 353

Провел на форуме:
905389

Репутация: 332

Отправить сообщение для KIR@PRO с помощью ICQ

Цитата:

Сообщение от Uname-A

Есть довольно громоздкое событие TForm1.Button3Click
там задание выполняется приблизительно 7 минут.... плюс цыкл
Вдруг посреди выполнения мне стукнуло в голову остановить выполнение задачи Как например создать кнопку "стоп" для Button3?

тут все двольно просто:создаеш логическую переменную в поле private

Код:

type
  TForm1 = class(TForm)
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
     stop:boolean;
  public
    { Public declarations }
  end;

........

procedure TForm1.Button1Click(Sender: TObject);
var .....
begin
stop:=false;
For i:=1 to 99999999 do begin
.......//твой код который выполняется
if stop=true then break;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
stop:=true;
end;

И еще в таймере с интервалом 50 пропиши application.processmessages;

p.s. De-visible сори я торопился -))))

Последний раз редактировалось KIR@PRO; 23.02.2009 в 00:22..