Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

Минимизация главной формы   Найти похожие ветки 

 
Sirruf ©   (2004-05-07 18:32) [0]

Как сделать так, чтобы при минимизации главной формы сворачивалась только она сама, а остальные формы - нет?


 
Семен Сорокин ©   (2004-05-07 18:34) [1]

имхо никак, на то она и главная...
при ее сворачивании сворачивается все приложение.


 
ASMiD ©   (2004-05-07 18:35) [2]

А остальные -это какие? Уж не MDIChild-ли


 
WebErr ©   (2004-05-07 18:39) [3]

Попробуйте поменять FormStyle в режиме выполнения, может что и получится )))


 
Sirruf ©   (2004-05-07 19:33) [4]

У всех форм FormStyle = fsNormal. MDI ни при чем...
WebErr, поменять на что?
Я вот подумал, может создать пустую форму, сделать ее главной, дальше Application.ShowMainForm := False, и тогда можно будет сворачивать каждую форму в отдельности. Но как-то уж корявовато всё это...


 
Игорь Шевченко ©   (2004-05-07 19:45) [5]

WebErr ©   (07.05.04 18:39)

Прежде чем давать глупые советы, я настоятельно рекомендую выяснить вопрос и проверить решение самому.


 
Игорь Шевченко ©   (2004-05-07 19:54) [6]

У тех форм, которые не должны сворачиваться, можно сделать Parent"oм  HWND_DESKTOP, например. Правда, от них кнопки на Taskbar появятся, но сворачиватся они не будут :)


 
P.N.P. ©   (2004-05-07 19:58) [7]

Можно просто перекрыть WMSysCommand у главной формы

type
 TForm1 = class(TForm)
   Button1: TButton;
   procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
 with Message do
 begin
   if (CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then
     WindowState:=wsMinimized
   else if (CmdType and $FFF0 <> SC_MOVE) or (csDesigning in ComponentState) or
     (Align = alNone) or (WindowState = wsMinimized) then
     inherited;
   if ((CmdType and $FFF0 = SC_MINIMIZE) or (CmdType and $FFF0 = SC_RESTORE)) and
     not (csDesigning in ComponentState) and (Align <> alNone) then
     RequestAlign;
 end;
end;



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

Текущий архив: 2004.05.23;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.037 c
4-1081006648
Kor@l
2004-04-03 19:37
2004.05.23
Удаление


4-1080913212
fatman@nm.ru
2004-04-02 17:40
2004.05.23
Как прибить процесс если окна не видно?


4-1081163464
Arturchik
2004-04-05 15:11
2004.05.23
Не хочет работать в OnShow(OnCreate): if Process32First(handler,d


3-1082626061
Eleonora
2004-04-22 13:27
2004.05.23
Interbase, Query, DBMemo


1-1084351959
Litr
2004-05-12 12:52
2004.05.23
Форма