Остановить все процессы программы

[artemavd]

Толком не знал как название темы сделать. Суть вот в чем. У меня в программе выполняются некие действия в таймере. Так вот, когда я нажимаю на кнопку "Стоп", пытаюсь остановить таймер, то у меня действия продолжают выполняться! . Как остановить все действия, которые выполняет моя программа в данный момент? По идее-то как, нажал на кнопку, выключил таймер и все, стоп, а нет, код продолжает выполнятся))

[FaTaL]

Ну для этого в своих циклах ставь какой нибудь флаг остановки и если он true то выходить из процедуры или цикла.

[artemavd]

Например как?

[igh0st]

Добавь глобальную переменную IsExit и мониторь ее в таймере

if IsExit Then
    begin
        Timer.Enabled := False;
        Exit;
    end;

[Stilet]

нажимаю на кнопку "Стоп", пытаюсь остановить таймер, то у меня действия продолжают выполняться!

Поправьте меня помидорами если я не прав (Яйцами не кидать, у меня аллергия на сероводород )

Таймер выполняется в том же потоке где находится, отсюда вывод: когда он выполняется никакие другие действия не могут быть выполнены. Когда кому-то хочется остановить таймер он посылает сообщение, которое обработается не параллельно, а после неких выполняемых действий, которые этот же поток и загрузили.

Таймер для распараллеливания ниразу не подходит, его нельзя остановить, пока некое действие, грузящие потока не выполнится полностью.

Можно это дело обойти заставив обработать сообщения вне очереди командой Application.ProcessMessages; - тогда остановка таймера может сработать.
Посмотрим банальненький примерчик:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Caption:=FormatDateTime('mm:ss:zz',now);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
tag:=0;
while tag<10000 do begin
 tag:=tag+1;
 Label1.Caption:=IntToStr(tag);
 Sleep(10);
 Application.ProcessMessages;
end;
end;

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

end.

Смысл надеюсь ясен.

Вообще уж если хочется гибко распараллелить действия - потоки лучшее средство.

[artemavd]

igh0st, а что именно будет делать эта переменная? Ну объявлю ее. Она что, будет какое-то значение получать?

[Stilet]

Она что, будет какое-то значение получать?

Он имел ввиду что по клику кнопки значение ее изменится, а в таймере будет проверяться, только это не кузявный вариант, я описал почему.

[DomiNick]

У меня в программе выполняются некие действия в таймере. Так вот, когда я нажимаю на кнопку "Стоп", пытаюсь остановить таймер, то у меня действия продолжают выполняться!

Хм... Может просто таймер доделывает свою "итерацию"?
У меня не было такого случая, чтоб он продолжал работать...

[Пепел Феникса]

ИМХО поток лучше. ставим его на паузу, и он останавливается в тот же момент.
потом если надо именно с того же момента и продолжает работу.

[zumm]

ИМХО поток лучше. ставим его на паузу, и он останавливается в тот же момент.
потом если надо именно с того же момента и продолжает работу.

Совершенно согласен. Юзайте потоки.