Скачать: CL | DM;

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

← →
DAngel   (2004-02-19 11:49) [0]

Delphi 6, KOL & MCK 1.90.
Есть форма, надо чтобы она сворачивалась в трей. Я пишу в форме на события OnMinimize и OnRestore следущее:


procedure TForm1.KOLForm1Minimize(Sender: PObj);
begin
     TIcon.Active := True;
     Applet.Visible := False;
     Form.Visible := False;
end;

procedure TForm1.KOLForm1Restore(Sender: PObj);
begin
     TIcon.Active := False;
     Applet.Visible := True;
     Form.Visible := True;
end;


После того как я запускаю программу и нажимаю на кнопку минимизировать появляется иконка в трее, но кнопка из панели задач не исчезает. Если нажать на иконку и развернуть форму, а потом опять ее свернуть то все будет работать нормально. Это глюк или я что-то не то пишу?

ПС: Пробовал обрабатывать события в OnMessage, все работает как надо.


function TForm1.KOLForm1Message(var Msg: tagMSG;
 var Rslt: Integer): Boolean;
begin
  Result := False;
  if (Msg.message = WM_SYSCOMMAND) and
     (Msg.wParam = SC_MINIMIZE) then begin
     TIcon.Active := True;
     Applet.Visible := False;
     Form.Visible := False;
     Result := True;
  end else
  if (Msg.message = WM_SYSCOMMAND) and
     (Msg.wParam = SC_RESTORE) then begin
     TIcon.Active := False;
     Applet.Visible := True;
     Form.Visible := True;
  end;
end;


Но если делать так, то тогда у меня возникает другой вопрос...
Когда я минимизирую окно (OnMinimize и OnRestore) то размер используемой памяти (смотрю в менеджере задач, Вин2к) при минимизации получается около 1Mb, а если минимизировать через OnMessage то так и остается 4Mb.
В чем разница и как это поправить?

---

← →
Владимир Кладов   (2004-02-19 16:57) [1]

Это все кажущаяся видимость. Наплюйте на нее.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c