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

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.034 c