Як при згортанні модальної форми згорнути всю програму

ЗИ Тільки не треба обговорювати навіщо це взагалі треба, плз. :)

type TForm2 = class(TForm) private процес WMGetSysCommand(var Message : TMessage); message WM_SYSCOMMAND; public end;

procedure TForm2.WMGetSysCommand (var Message: TMessage);

Працює, але дивно. У XP немає ефекту згортання, просто зникає і все.

І ще на скільки даний метод працездатний в зав від вінди та версії Delphi?

> Так Вам шашечки, чи їхати?І те й те:)

Просто Application.Minimize; без мод форми згортає як завжди…

Мабуть, цей код не працює в Delphi 5, цікаво чому?

Крути, дякую. А чи потрібно цей код зробити умовно компілюваним у зав. від версії Delphi і якщо так, то як?

> у зав. від версії Delphi і якщо так, то як?

Підкажіть, будь ласка, а якщо необхідно зробити так, щоб користувач не міг від модальної форми перейти до головної форми, наприклад закривши її різними діями? І які дії (комбінації клавіш) користувача треба зрадіти?

> щоб користувач не міг від модальної форми перейти до головної > форміТобто комп повинен зависнути при показіформи?

> Ок. Чи означає це що треба зробити умовою компіляцію? І якщо > саме треба, то чому? Тобто що буде поганого, якщо не > зробити? На перший погляд працює все нормально і D7 > і в D5… Як я зрозумів, що поки ти його допишеш, вже пропаде потреба закладатися навіть на D7 ;)

Взагалі, було показано лише як, а оцінкапотреби залишена зацікавленим особам.

> Взагалі було показано лише як, а оцінка потреби > залишена заінтересованим особам.Я так і зрозумів. Дякую ще раз.

> Як я зрозумів, що поки ти його допишеш,Нехай дописав та віддав уже…

---