Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.18;
Скачать: 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 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.025 c
9-1080708227
max003
2004-03-31 08:43
2004.07.18
Как работают трейнеры для игр?


1-1088671876
a123
2004-07-01 12:51
2004.07.18
свой шрифт в программе


3-1087737702
Катя
2004-06-20 17:21
2004.07.18
Свойства DBGrid


9-1079726275
Landgraph
2004-03-19 22:57
2004.07.18
Модели...


4-1086508984
GuAV
2004-06-06 12:03
2004.07.18
USB