Ох эти формы - Общие вопросы Delphi

firephenix · 01.03.2011, 20:02

Как свернуть всю программу из модально(i:=form2.showmodal) вызванной формы.

_SERGEYX_ · 01.03.2011, 20:36

Как обычно

Код:

Application.Minimize;

firephenix · 01.03.2011, 21:44

Спасибо.
Но как можно перехватить сворачивания одной форму чтобы свернуть всё приложение.

Люди срочно надо.

Человек_Борща · 02.03.2011, 01:10

Application.Minimize; сворачивает всё приложение.

Проверяй ModalResult и по нему сворачивай всё приложение.

ArtGrek · 02.03.2011, 01:10

Код:

...
private
    Procedure WMGetSysCommand(var Message : TMessage);message WM_SysCommand;
...

Procedure TForm1.WMGetSysCommand(var Message : TMessage);
Begin
IF (Message.wParam = SC_MINIMIZE) then ShowMessage('Сейчас окно будет свернуто');
Inherited;
End;

вводи в гугле и ищи : 'перехватить сворачивания форм delphi'

firephenix · 02.03.2011, 16:55

Спасибо, осталось только во всём разобраться...

01.03.2011, 20:02	#1
firephenix Пользователь Регистрация: 14.02.2011 Сообщений: 89	Ох эти формы Как свернуть всю программу из модально(i:=form2.showmodal) вызванной формы.

01.03.2011, 20:36	#2
_SERGEYX_ Участник клуба Регистрация: 07.07.2007 Сообщений: 1,518	Как обычно Код: `Application.Minimize;`

01.03.2011, 21:44	#3
firephenix Пользователь Регистрация: 14.02.2011 Сообщений: 89	Спасибо. Но как можно перехватить сворачивания одной форму чтобы свернуть всё приложение. Люди срочно надо. Последний раз редактировалось Stilet; 02.03.2011 в 08:55.

02.03.2011, 01:10	#5
ArtGrek DelphiProger Участник клуба Регистрация: 14.11.2010 Сообщений: 1,023	Код: `... private Procedure WMGetSysCommand(var Message : TMessage);message WM_SysCommand; ... Procedure TForm1.WMGetSysCommand(var Message : TMessage); Begin IF (Message.wParam = SC_MINIMIZE) then ShowMessage('Сейчас окно будет свернуто'); Inherited; End;` вводи в гугле и ищи : 'перехватить сворачивания форм delphi' VirusN13 Последний раз редактировалось ArtGrek; 02.03.2011 в 01:13.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Ох уж эти прерывания	evgenen	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	2	06.01.2011 01:10
Ох уж эти OR, AND, XOR!	NSV	Свободное общение	6	27.03.2010 10:38
Что означают эти строки?	DriverSTi	Помощь студентам	15	09.01.2010 13:36
ух.....эти массивы	aiktz	Помощь студентам	1	15.03.2009 17:33
эти ужасные числа фибоначчи!!!	галя	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	0	24.12.2006 20:23

02.03.2011, 01:10	#4
Человек_Борща Старожил Регистрация: 30.12.2009 Сообщений: 11,434	Application.Minimize; сворачивает всё приложение. Проверяй ModalResult и по нему сворачивай всё приложение.

02.03.2011, 16:55	#6
firephenix Пользователь Регистрация: 14.02.2011 Сообщений: 89	Спасибо, осталось только во всём разобраться...