[kaktusad]

Можете, пожалуйста, внятно и четко объяснить, как сделать, чтобы при сворачивании любой формы программы, она сворачивалась в панель задач, а не отдельным окном над ней.
У меня в программе 8 форм, пробовал вызывать их не методом Show, а ShowModal - все равно нормальный вид при сворачивании только первой главной формы...

[Alegun]

Сообщение от kaktusad

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

Надо смотреть, что происходит при сворачивании формы. Если она главная, то ей идёт сообщение Application.Minimize, а если дочерняя, то лишь Form2.Minimize. Поэтому форма не прячется, а остаётся на экране в минимизированном виде. Вариант решения: при минимизации управлять её видимостью, а для этого прописываем в юните скрываемой формы такую процедуру

Код:

1 2 3 4 5 6 7

... type   TForm2 = class(TForm)       procedure WMSysCommand(var message: TWMSysCommand);     message WM_SysCommand; ...

и собсно её тельце после implementation

Код:

1 2 3 4 5

procedure TForm2.WMSysCommand(var message: TWMSysCommand); begin if message.CmdType = SC_MINIMIZE then Form2.Visible:= false else Inherited; end;

Теперь при получении приказа свернуться, форма вместо этого будет скрываться.

[NumLock]

для всех форм кроме главной добавить код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

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.

[Alegun]

Здесь вся соль в подаче вопроса - ТС нужно чтоб при сворачивании дочерней формы приложения она не минимизировалась (сворачивалась до одного заголовка с кнопками), а уходила в трей (как будто вся аппликация, но по частям), замена сворачивания скрытием не плохой вариант, как мне кажется. Хотя, чем только Борланд не шутит, может я вопрос как обычно, не допонял

[NumLock]

http://zalil.ru/34306037
так?

[Alegun]

Оффтоп:

Сообщение от NumLock

...так?

Придёт хозяин топки, объяснит