|
#1
|
||||
|
||||
Формы
Можете, пожалуйста, внятно и четко объяснить, как сделать, чтобы при сворачивании любой формы программы, она сворачивалась в панель задач, а не отдельным окном над ней.
У меня в программе 8 форм, пробовал вызывать их не методом Show, а ShowModal - все равно нормальный вид при сворачивании только первой главной формы... |
#2
|
||||
|
||||
Цитата:
Код:
... type TForm2 = class(TForm) procedure WMSysCommand(var message: TWMSysCommand); message WM_SysCommand; ... Код:
procedure TForm2.WMSysCommand(var message: TWMSysCommand); begin if message.CmdType = SC_MINIMIZE then Form2.Visible:= false else Inherited; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#3
|
||||
|
||||
для всех форм кроме главной добавить код:
Код:
unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm2 = class(TForm) private { Private declarations } procedure WMSYSCOMMAND(var Msg: TMessage); message WM_SYSCOMMAND; public { Public declarations } end; var Form2: TForm2; implementation {$R *.dfm} { TForm2 } procedure TForm2.WMSYSCOMMAND(var Msg: TMessage); begin if Msg.WParam=SC_MINIMIZE then Application.Minimize else inherited; end; end. Пишу программы за еду. __________________ |
#4
|
||||
|
||||
Здесь вся соль в подаче вопроса - ТС нужно чтоб при сворачивании дочерней формы приложения она не минимизировалась (сворачивалась до одного заголовка с кнопками), а уходила в трей (как будто вся аппликация, но по частям), замена сворачивания скрытием не плохой вариант, как мне кажется. Хотя, чем только Борланд не шутит, может я вопрос как обычно, не допонял
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#5
|
||||
|
||||
Пишу программы за еду. __________________ |
#6
|
||||
|
||||
Оффтоп:
Цитата:
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |