Главная страница
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.022 c
1-1088670508
Subdigger
2004-07-01 12:28
2004.07.18
DEVexpress


3-1087732998
a125
2004-06-20 16:03
2004.07.18
как восстановить файл PARADOX


14-1088403388
31512
2004-06-28 10:16
2004.07.18
ГАИшники наши и буржуинские


1-1088728837
maxistent
2004-07-02 04:40
2004.07.18
TWebBrowser


14-1088169312
Samael6
2004-06-25 17:15
2004.07.18
Вопрос по РНР. Может кто-нибудь помочь?