Вниз
Скачать: CL | DM;

Как при сворачивании модальной формы свернуть все приложение?   Найти похожие ветки 

← →
Kolan ©   (2007-10-20 09:56) [0]

Здравствуйте,
 сабж.

ЗЫ
 Только не нодо обсуждать зачем это вообще надо, плз. :)


← →
korneley ©   (2007-10-20 10:16) [1]

type
 TForm2 = class(TForm)
 private
   procedure WMGetSysCommand(var Message : TMessage); message WM_SYSCOMMAND;
 public
 end;

{ TForm2 }

procedure TForm2.WMGetSysCommand(var Message: TMessage);
begin
 if (Message.wParam = SC_MINIMIZE)
 then Application.Minimize
 else inherited;
end;


← →
Kolan ©   (2007-10-20 10:26) [2]

Работает, но странно. В XP не эффекта сворачивания, просто исчезает и всё.

И еще на сколько данный метод работоспособен в зав от винды и версии Delphi?


← →
korneley ©   (2007-10-20 10:33) [3]


>  В XP не эффекта сворачивания,

Так Вам шашечки, или ехать? В D7 + XP работает, правда у меня в ХР все видеоэффекты отключены, с целью не грузить проц по пустякам...


← →
Kolan ©   (2007-10-20 10:34) [4]

> Так Вам шашечки, или ехать?

И то и то :)


← →
Kolan ©   (2007-10-20 10:35) [5]

Просто Application.Minimize; без мод формы сворачивает как обычно&#133


← →
Kolan ©   (2007-10-22 14:15) [6]

Видимо данный код не работает в Delphi 5, интересно почему?


← →
Kolan ©   (2007-10-23 09:50) [7]

гхм&#133


← →
Leonid Troyanovsky ©   (2007-10-23 11:10) [8]


> Kolan ©   (23.10.07 09:50) [7]

> гхм…

http://groups.google.com/group/borland.public.delphi.vcl.components.using/msg/50dbb363ab6d9b27 ?

--
Regards, LVT.


← →
Kolan ©   (2007-10-23 11:21) [9]

Круть, благодарю. А нужно ли этот код сделать условно компилируемым в зав. от версии Delphi и если да, то как?
:)


← →
Leonid Troyanovsky ©   (2007-10-23 12:32) [10]


> Kolan ©   (23.10.07 11:21) [9]

> в зав. от версии Delphi и если да, то как?

http://groups.google.com/group/borland.public.delphi.ide/msg/57327a78873dd44a

--
Regards, LVT.


← →
Lebedev   (2007-10-23 12:44) [11]

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


← →
Kolan ©   (2007-10-23 14:18) [12]

> чтобы пользователь не мог от модальной формы перейти к главной
> форме

То есть комп должен зависнуть при показеформы?


← →
Kolan ©   (2007-10-23 14:21) [13]


> [10] Leonid Troyanovsky ©   (23.10.07 12:32)

Ок. Значит ли это что надо сделать усл компиляцию? И если именно надо, то почему? То есть что будет плохого если не сделать? На первый взгляд работает все нормально и в D7 и в D5&#133


← →
Leonid Troyanovsky ©   (2007-10-23 14:45) [14]


> Kolan ©   (23.10.07 14:21) [13]

> Ок. Значит ли это что надо сделать усл компиляцию? И если
> именно надо, то почему? То есть что будет плохого если не
> сделать? На первый взгляд работает все нормально и в D7
> и в D5…

Как я понял, что пока ты его допишешь, уже пропадет
нужда закладываться даже на D7 ;)

Вообще, было показано лишь как, а оценка нужности
оставлена заинтересованным лицам.

--
Regards, LVT.


← →
Kolan ©   (2007-10-23 14:47) [15]

> Вообще, было показано лишь как, а оценка нужности
> оставлена заинтересованным лицам.

Я так и понял. Благодару еще раз.


> Как я понял, что пока ты его допишешь,

Да дописал да отдал ужо&#133



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.015 c
2-1193308449
cvg
2007-10-25 14:34
2007.11.18
Как определить длину элемента структуры?


1-1188367751
elserpiente
2007-08-29 10:09
2007.11.18
Просмотреть имя пользовотеля в ODBS DSN


2-1193318445
yury1
2007-10-25 17:20
2007.11.18
скорость RAS соединения


6-1174393701
Vlad Oshin
2007-03-20 15:28
2007.11.18
заполнение контролов в IE по принципу twebbrowser. AV, помему?


15-1192621004
Ученик
2007-10-17 15:36
2007.11.18
У кого-нибудь есть справочник по машине неймана?




   Наверх