Отмена операции. Остановка процедуры

[hon]

Идет какой-нибуть процесс. Как нажатием на кнопку его остановить. Набросал код, но что писать для кнопки отмена?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ProgressBar1: TProgressBar;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
     ProgressBar1.Position:=0;
     Label1.Caption:='Выпоненение';
     Label1.Refresh;
     while ProgressBar1.Position<>ProgressBar1.Max do
           begin
           ProgressBar1.Position:=ProgressBar1.Position+1;
           end;
     Label1.Caption:='Операция выполнено';
     Label1.Refresh;
end;

end.

Формочка:

object Form1: TForm1
  Left = 192
  Top = 114
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 440
    Top = 144
    Width = 209
    Height = 13
    Caption = 'Label1'
  end
  object Button1: TButton
    Left = 32
    Top = 136
    Width = 105
    Height = 25
    Caption = 'Начать процесс'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 224
    Top = 136
    Width = 97
    Height = 25
    Caption = 'Отмена'
    TabOrder = 1
  end
  object ProgressBar1: TProgressBar
    Left = 24
    Top = 64
    Width = 625
    Height = 17
    Max = 20000
    TabOrder = 2
  end
end

[JUDAS]

Я бы в формочку вёл переменную Flag : boolean котроая принимала бы значение true при запущенном процессе. При нажатии на кнопку 2, флаг бы ставал false
А в цикле while ProgressBar1.Position<>ProgressBar1 .Max do
я бы дописал условие
if not Flag then break
-----------
Типа чтото вот такого

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ProgressBar1: TProgressBar;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    Flag : boolean;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
     ProgressBar1.Position:=0;
     Flag := true;
     Label1.Caption:='Выпоненение';
     Label1.Refresh;
     while ProgressBar1.Position<>ProgressBar1.Max do
           begin
             ProgressBar1.Position:=ProgressBar1.Position+1;
             if not Flag then Break;
             Application.ProcessMessages();
           end;
     Label1.Caption:='Операция выполнено';
     Label1.Refresh;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Flag := false;
end;
end.

[phomm]

Когда закончите мыслить в кнопках и займётесь нитями/потоками - Threads и иже с ними, то дойдёте до решения задачи в общем виде.
Ну а чисто в лоб решить то, что Вы написали :

var dostop : boolean;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
     ProgressBar1.Position:=0;
     Label1.Caption:='Выпоненение';
     Label1.Refresh;
     while (ProgressBar1.Position<>ProgressBar1.Max) and not dostop do
           begin
           ProgressBar1.Position:=ProgressBar1.Position+1;
           application.processmessages;
           end;
     Label1.Caption:='Операция выполнено';
     Label1.Refresh;
dostop := false;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    dostop := true;
end;

Edit : мда ) опередили )

[Stilet]

А я бы эти действия пустил в дополнительный поток...
hon, с TThread работать умеешь?

[GunSmoker]

http://www.delphikingdom.ru/asp/view...catalogid=1355 - в аттаче примеры

[JUDAS]

TThread работать умеешь?

Правильно Stilet, поддерживаю !
Чтобы разобратся в потоках, нужно не один месяц "курить" мануалы )

[GunSmoker]

Чтобы разобратся в потоках, нужно не один месяц "курить" мануалы )

Посмотри: http://www.delphikingdom.ru/asp/view...catalogid=1355

[hon]

Спасибо JUDAS. Помогло.

Сообщение от Stilet

А я бы эти действия пустил в дополнительный поток...
hon, с TThread работать умеешь?

Было бы интересно узнать как это делать. С TThead работать не умею, но это уже по ЛС, т.к. основной вопрос темы уже решен.