Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.11.18;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.11.18;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.48 MB
Время: 0.045 c
2-1193178890
хочу знать...
2007-10-24 02:34
2007.11.18
Преобразование типов!


15-1192438559
Gydvin
2007-10-15 12:55
2007.11.18
Настройка модема


15-1192430055
Layner
2007-10-15 10:34
2007.11.18
Можно ли в Delphi 2007 писать приложения для PDA WM5?


2-1193035733
Alex_C
2007-10-22 10:48
2007.11.18
Недопустимый дескриптор окна


15-1192701498
zdm
2007-10-18 13:58
2007.11.18
перехват нажатия





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский