![]() |
|
|
|
|
#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
|
||||
|
||||
|
Оффтоп:
Цитата:
![]() |