[lostbananan]

во второй форме на данный момент у меня нету никакого кода:

Код:

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    ProgressBar1: TProgressBar;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

end.

Люди! Помогите, подскажите - очень надо и притом срочно!!!

[Aristarh Dark]

Или делай трассировку кода и ищи где падает, или выкладывай ПОЛНОСТЬЮ проект и может быть кто-нить посмотрит на это произведение.

[lostbananan]

Смотрите в архиве последний символ в имени файла "1"....
что-то сервкр глючит се1йчас на йфа1йлообменник сброшу... - http://us.ua/1042689/
Сам пробую найти дебагером.
Смотрел в дебагере: Аксес виолатион выскакивате после:

Код:

 with TForm2.Create(nil) do
   begin
      Show;

[Aristarh Dark]

Проект не полный.

[lostbananan]

Вот все файлы: http://us.ua/1042708/

[M.A.D.M.A.N.]

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

Вот все файлы: http://us.ua/1042708/

ты знаешь, это тоже не полный проект.

[lostbananan]

Теперь тв архиве все что в папке проекта (там много мусора, извините) http://us.ua/1042726/

[Alegun]

Скачать не смог, жаба заела на телефон почти три мега мусора забрасывать, извнт А чем мой вариант не понравился? Так ведь в любом случае, как только не закрывай первую форму, хоть кнопкой, хоть крестиком - вторая форма обязательно появится, если что, то вместо слипа можно и таймер запустить.

[Aristarh Dark]

Где вторая форма-то?

[lostbananan]

Оба может и потому... вот код второй формы:

Код:

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    ProgressBar1: TProgressBar;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

end.

Перебросил файлы второй формы в папку кпроекта - ошибка все-равно выскакивает....

[lostbananan]

В чем проблема - я так и не раз
обрался (что-то явно с компоновкой файлов в проекте) - сфоримровал по-новой - все нормально работает...
ТАк что существующий проект буду переписывать...

[lostbananan]

Переписывать не буду - я форм2 сначала удалил из проекта, потом создал в проекте новою форму форм2; - теперь все работает нормально,...
Но, есть одно но, во втрой форме у меня будет несколько таймеров и несколько прогресбаров, который по таймерам будут "прогрессировать".
Если написать код так:

Код:

   with TForm2.Create(nil) do
   begin
      Show;
      Update;
      Free;
    end;

то форм2 появится на экране и тутже закроется, мне зарание не известно сколько времени на экране должни присутствывать Форм2, как здесь быть?
Т.е. мне, в конце-концов надо, чтобы Форм2 закрылось при срабатывании таймера Таймер_Конец_Работы, скажем так.
И тогда - вся проблема решена!
Понятно, что после

Код:

Update;

надо написать какой-то код, но какой и что тот код должен делать - ума не приложу.
Очень прошу - подскажить, в данном проекте - это у меня последняя непонятка для меня, ее решить и проект готов! Помогите, кто знает как здесь поступить!!!

[lostbananan]

Написал такой код:

Код:

   with TForm2.Create(nil) do
   begin
      Show;
      Update;
      if CheckBox1.Checked=true then
        Free;
    end;

причем CheckBox1.Checked не выбран, - все-равно окно появляется и сразу же исчезает... Что делать?

[lostbananan]

Люди добрые, хелп ми плиз!!!! Очень надо, а сам додуматься что-то не могу...

[lmikle]

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

...
причем CheckBox1.Checked не выбран, - все-равно окно появляется и сразу же исчезает... Что делать?

Код:

   with TForm2.Create(nil) do
   begin
      Show;
      Update;
      While not CheckBox1.Checked Do sleep(100);
      Free;
    end;