Размножение окон

[Sergey2]

Есть программа которая делает определенные вещи, допустим с файлом. Все работает как и задуманно. Захотелось сделать "оболочку" к этой программе, в которой выбираешь файл, жмешь "обработать", открывается форма этой самой программы и она там мутит с этим фалом, считая и отображая на экране всякие данные.
Причем что бы пока она это все дело обсчитывает, можно было бы выбрать из "оболочки" другой файл и что бы открылось второе окно и начало обработку второго файл так же отображая все в своем окне.
Как это сделать с наименьшими телодвижениями?
Я добавил в проект второй модуль с формой, в свойствах проекта сделал второй модуль главным, первую форму убрал из автосоздания. И на кнопку "запустить обработку" повесил вот это:
with TForm1.Create(Application) do
try
Timer1.Enabled:=True;
Show;
except
Free;
end
Чего еще нехватает? Глобальнвые переменные разместил в private. Этого достаточно или еще чего надо сделать что бы никаких накладок не было?

[mihali4]

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

Есть программа которая делает определенные вещи, допустим с файлом. Все работает как и задуманно. Захотелось сделать "оболочку" к этой программе, в которой выбираешь файл, жмешь "обработать", открывается форма этой самой программы и она там мутит с этим фалом, считая и отображая на экране всякие данные.
Причем что бы пока она это все дело обсчитывает, можно было бы выбрать из "оболочки" другой файл и что бы открылось второе окно и начало обработку второго файл так же отображая все в своем окне.
Как это сделать с наименьшими телодвижениями?
Я добавил в проект второй модуль с формой, в свойствах проекта сделал второй модуль главным, первую форму убрал из автосоздания. И на кнопку "запустить обработку" повесил вот это:
with TForm1.Create(Application) do
try
Timer1.Enabled:=True;
Show;
except
Free;
end
Чего еще нехватает? Глобальнвые переменные разместил в private. Этого достаточно или еще чего надо сделать что бы никаких накладок не было?

Простите, вы сейчас в здравом уме находитесь?
Да вы не обижайтесь, я не собираюсь вас оскорблять...
Но то, что вы написали - тянет на отправку в Кащенко...
Хотя бы вот этот перл:
"в свойствах проекта сделал второй модуль главным, первую форму убрал из автосоздания"
И после сего извращения вы пытаетесь:

with TForm1.Create(Application) do
try
Timer1.Enabled:=True;

Любезный, вы в этом случае ОБЯЗАНЫ указать принадлежность Timer1!
И это - как минимум!
Давайте быть проще - скажите, что вы хотите эдакое совершить, а мы вам с удовольствием поможем...

[Sergey2]

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

Простите, вы сейчас в здравом уме находитесь?
Да вы не обижайтесь, я не собираюсь вас оскорблять...
Но то, что вы написали - тянет на отправку в Кащенко...

Пока в метро ехал в голову пришло

Хотя бы вот этот перл:
"в свойствах проекта сделал второй модуль главным, первую форму убрал из автосоздания"
И после сего извращения вы пытаетесь:

Любезный, вы в этом случае ОБЯЗАНЫ указать принадлежность Timer1!
И это - как минимум!

там же with. Этого недостаточно? Или это не то?

Давайте быть проще - скажите, что вы хотите эдакое совершить, а мы вам с удовольствием поможем...

Я же описал. Есть программа. Жмешь в ее окне кнопку и она определенный файл обрабатывает и быковки выводит десять раз в секунду в Memo. Ручейком. Это есть. Надо следующее:
Программа-оболочка, в которой выбираешь файл, жмешь "обработать" и появляется окно вышеописанной программы в которой в Memo льются буковки. Потом из программы-оболочки выбираешь другой файл, жмешь "обработать" и появляется еще одно окно в котором бегут буковки второго файла по мемо.
Во.
Если не понятно могу исходники прислать

[mihali4]

Программа-оболочка, в которой выбираешь файл, жмешь "обработать" и появляется окно вышеописанной программы в которой в Memo льются буковки. Потом из программы-оболочки выбираешь другой файл, жмешь "обработать" и появляется еще одно окно в котором бегут буковки второго файла по мемо.

Простите, но я, в первую очередь, не понял "тайного" смысла создания дочерних форм... Все элементарно решается и без этого.
Каюсь, иногда приходится создавать формочки для диалогов с ShowModal - чтобы "дурной" юзер не забыл про нее...

[Sergey2]

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

Простите, но я, в первую очередь, не понял "тайного" смысла создания дочерних форм... Все элементарно решается и без этого.

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

[mihali4]

там же with. Этого недостаточно? Или это не то?

Простите, но with для кого? Для несуществуюшего объекта??? (Вы не забыли, что "первую форму убрал из автосоздания"?)
Давайте все же ссылаться на то, что у вас есть...

[Sergey2]

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

Простите, но with для кого? Для несуществуюшего объекта??? (Вы не забыли, что "первую форму убрал из автосоздания"?)
Давайте все же ссылаться на то, что у вас есть...

Так я его создаю и на него ссылаюсь.

[mihali4]

Весьма трудно понять вас, не имея перед глазами исходника.
Где вы там что создаете, как, зачем...
Увы, не обладаю даром экстрасенса...

[Sergey2]

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

Весьма трудно понять вас, не имея перед глазами исходника.
Где вы там что создаете, как, зачем...
Увы, не обладаю даром экстрасенса...

привел же исходник:

with TForm1.Create(Application) do
try
Timer1.Enabled:=True;
Show;
except
Free;
end

всегда так делаю. Когда модальные формы вызываю пишу вот так:
with TForm2.Create(Application) do
try
ShowModal;
finally
Free;
end;

[mihali4]

with TForm1.Create(Application) do
Show;

Ну это - знаете ли - ни в какие ворота!
Почитайте о событиях, весьма полезно, между прочим...