Привет!

Вот такая ситуация:
  программа состоит из двух форм
  первая Form1 - обычная форма из которой открывается вторая, модальная форма Form2:
  Form2 := TForm2.Create(Application);
  Form2.ShowModal;

нужно сделать так, чтобы когда пользователь нажимает на кнопку "свернуть" у Form2, то
вся программа должна сворачиваться, а вместо этого Form1 остается как есть, а Form2 вообще оказывается над кнопкой пуск О_о

тогда я попытался обработать событие минимизации следущим образом:
procedure TForm2.FormResize(Sender: TObject);
begin
  if WindowState = wsMinimized then
    Form1.WindowState := wsMinimized;
end;

Программа свернулась, а когда я ее развернул назад, то Form2 непонятно куда пропала и все на этом.


Вот исходники и саму программку приложил
(Программка просто эмулирует длительный процесс через класс TThread)

Помогите пожалуйста! Уже не знаю что делать!

Это сообщение отредактировал(а) Etar - 12.12.2008, 11:49

Присоединённый файл ( Кол-во скачиваний: 2 )
 TestThread.zip 226,43 Kb

Etar, почтиай и это на всякий случай

Etar, посмотрите пример

Присоединённый файл ( Кол-во скачиваний: 8 )
 Example.rar 9,08 Kb

О спасибо, код пока не смотрел, но судя по тому как работает - то что надо!