Как закрыть форму индикатора процесса после завершения цикла?

[SkAndrew]

Добрый вечер!

Подскажите почему не работает конструкция?

Создаю две формы, первая главная, вторая для индикатора процесса. Кнопка включает цикл и вызывает форму с индикатором процесса. Когда значение в цикле достигает заданного форма индикатора процесса должна исчезнуть (закрыться). Но приложение зависает. Почему? Где ошибка?

Код:

Форма №1

unit Unit1;

interface

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

const
  WM_MYBUFFERINGSHOW = WM_USER + 102;

type
  TfrmMain = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure MyBufferShow(var Msg : TMessage); message WM_MYBUFFERINGSHOW;
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses Unit2;

{$R *.dfm}

procedure TfrmMain.Button1Click(Sender: TObject);
      var i : Integer;
begin
  PostMessage(Handle, WM_MYBUFFERINGSHOW, 0, 0);
  i := 0;
  repeat
    Inc(i);
  until i>30;
  if i>30 then  
    Form2.Close;
end;

procedure TfrmMain.MyBufferShow(var Msg : TMessage);
begin
  Form2.ShowModal;
end;

end.

Форма№2

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
  private
    { Private declarations }
  protected
   { Protected declarations }
    procedure CreateParams(var Params : TCreateParams); override;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.CreateParams(var Params : TCreateParams);
begin
  inherited Createparams(Params); 
  with Params do 
    Style := (Style or WS_POPUP) and not WS_DLGFRAME;
end;

end.

Спасибо

[mihali4]

Ну, во-первых, совершенно лишняя строка:

 until i>30;
  if i>30 then  
    Form2.Close;

Во-вторых, после строки

Form2.ShowModal;

должна следовать строка

Form2.Free;

Вот тогда у вас все будет нормально закрываться...

[SkAndrew]

К сожалению, подсказки не привели к успеху. Вторая форма после завершения цикла не закрывается! Еще есть какие идеи. Спасибо

[mihali4]

Враки !
Комплект

Form2.ShowModal;
Form2.Free;

работает всегда и везде...

[SkAndrew]

Я же привет полный код. все заменил и несколько раз проверил на Делфи 2007 не закрывается! Есть еще идеи? Спасибо.

[Kotofff]

А почему не закрывать форму из нее же ?
Т.е. не с Form1 давать команды, а в самой Form2 выполнять Close когда индикатор достигнет "нужного" значения. Потому как после Form2.ShowModal внимание системы к Form1 вообще пропадает напрочь. И все нужно делать в Form2.

[SkAndrew]

Спасибо за идею, но мне нужно чтобы сам процесс из первой формы управлял закрытием модальной формы. Может еще есть какие-нибудь идеи? Спасибо всем!

[mihali4]

Только если показывать вторую форму немодально:

Form2.Show;

[SkAndrew]

Но мне нужна именно такая конструкция. спасибо.

[Andrei]

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

Спасибо за идею, но мне нужно чтобы сам процесс из первой формы управлял закрытием модальной формы. Может еще есть какие-нибудь идеи? Спасибо всем!

Нуу... я думаю, можно запустить ваш процесс отдельным потоком, затем вызвать ShowModal, а по окончании процесса, из потока закрыть модальную форму. Как-то так.

PS: Сам я такого не делал. Просто сейчас потихоньку присматриваюсь к потокам и прикидываю что к чему. О потоках я нашел неплохую статью здесь: http://forum.vingrad.ru/forum/s/1afb...pic-60076.html.