Таймеры и формы. Нужна помощь.

[StriderX]

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

Вопрос не в потоке, и без него нормально. Вопрос как закрыть форму, при запущенном цикле в таймере!

У вас гибрид получился. Конечно, он не имеет смысла. Поток не должен вызывать ProcessMessages, а таймер должен быть уничтожен =-)
Вот например один из миллиона вариантов код потока, просто обозначаю идею:

 NextWork := 0;
 while not FTerminated do begin
    GlobalTime = GetTickCount();
    if (GlobalTime > NextWork) then begin
          ... some code ...
          NextWork := GetTickCount() + TimerDelay;
    end;
 end;

[min@y™]

Слабал я тебе пример.

Отлаживал только в Delphi 7 и только под windows 8.1x64.

[min@y™]

Кому влом качать - вот кусок кода.

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, Gauges, Spin;

type
  TMainForm = class(TForm)
    Timer: TTimer;
    BackPanel: TPanel;
    ModalButton: TButton;
    TimerGroupBox: TGroupBox;
    StartButton: TButton;
    Gauge: TGauge;
    Label1: TLabel;
    CountSpinEdit: TSpinEdit;
    procedure TimerTimer(Sender: TObject);
    procedure ThreadTerminate(Sender: TObject);
    procedure StartButtonClick(Sender: TObject);
    procedure ModalButtonClick(Sender: TObject);
  private
    FThread: TThread;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override; 
  end;

type
  TMyThread = class(TThread)
  private
    FForm: TMainForm;
    FProgress: Integer; 
    procedure UpdateInfo;
  protected
    procedure Execute; override;
  public
    constructor Create(const CreateSuspended: Boolean; AForm: TMainForm); reintroduce;
  end;  

var
  MainForm: TMainForm;

implementation

uses
  uModal;

{$R *.dfm}

procedure TMainForm.ThreadTerminate(Sender: TObject);
begin
  FThread:= nil;
  Gauge.Progress:= 0;
end;

procedure TMainForm.TimerTimer(Sender: TObject);
begin
  if Assigned(FThread)
    then Exit;
    
  Timer.Enabled:= False;
  FThread:= TMyThread.Create(True, Self);
  FThread.OnTerminate:= ThreadTerminate;
  
  try
    FThread.Resume();
  finally
    Timer.Enabled:= True;
  end;  
end; 

procedure TMainForm.StartButtonClick(Sender: TObject);
begin
  Timer.Enabled:= not Timer.Enabled;

  if Timer.Enabled
    then begin
           StartButton.Caption:= 'Ñòîï';
           TimerTimer(Timer);
         end  
    else begin
           if Assigned(FThread)
             then FThread.Terminate();

           StartButton.Caption:= 'Ñòàðò';
         end;  

  Self.Invalidate();
end;

constructor TMainForm.Create(AOwner: TComponent);
begin
  inherited;
  TimerGroupBox.DoubleBuffered:= True;
end;

destructor TMainForm.Destroy;
begin
  if Assigned(FThread) and not FThread.Suspended
    then FThread.Terminate();
    
  inherited;
end;

{ TMyThread }

constructor TMyThread.Create(const CreateSuspended: Boolean; AForm: TMainForm);
begin
  inherited Create(CreateSuspended);
  FForm:= AForm;
end;

procedure TMyThread.Execute;
var
  i, Count: Integer;
begin
  if Assigned(FForm)
    then Count:= FForm.CountSpinEdit.Value
    else Count:= 100500;
  
  for i:= 0 to Count - 1 do
    begin
      if Self.Terminated
        then Break;
    
      FProgress:= Round(100.0 * (i + 1) / Count);
      Synchronize(UpdateInfo);
    end;
end; 

procedure TMyThread.UpdateInfo;
begin
  if not Assigned(FForm)
    then Exit;

  FForm.Caption:= IntToStr(FProgress) + '% ' + TimeToStr(Now());
  FForm.Gauge.Progress:= FProgress;
end;

procedure TMainForm.ModalButtonClick(Sender: TObject);
begin
  ShowModalForm();
end;

end.

[dbGo]

Спасибо, за пример!

[min@y™]

Спасибо, за пример!

Чо, работает?

[dbGo]

Код работает, спасибо. Но у меня возникли технические вопросы по реализации вашего метода, а именно создание потока. Я написал вам в ICQ, но там анти-бот...
Разъясните процедуру

 inherited Create(CreateSuspended);

Я правильно понимаю, что ошибка была в том, что я стопорил таймер и не отпускал его пока не отработает цикл внутри него?

[min@y™]

Я написал вам в ICQ, но там анти-бот...

Дай свой UIN, я сам постучуся...

Разъясните процедуру

Это конструктор треда. Чо тут непонятно?

Я правильно понимаю, что ошибка была в том, что я стопорил таймер и не отпускал его пока не отработает цикл внутри него?

Не совсем. Просто ты не совсем понимаешь, как windows работает на уровне сообщений и тредов.

[dbGo]

я через мэйл агент вас нашел.
Мой емайл pssolo@bk.ru можете писать прямо на него или прислать скайп на мэйл.

[min@y™]

я через мэйл агент вас нашел.
Мой емайл pssolo@bk.ru можете писать прямо на него или прислать скайп на мэйл.

Да ну, влом. Пиши на аську. И ваще, чо там у тебя за вопросы-то?