Главная страница
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.026 c
3-1087539902
min
2004-06-18 10:25
2004.07.18
sql-Delphi


3-1087564847
None
2004-06-18 17:20
2004.07.18
Даты


3-1087386162
Andrey V.
2004-06-16 15:42
2004.07.18
Реально ли это сделать одним запросом ?


1-1088670304
Wowa-K
2004-07-01 12:25
2004.07.18
Как подключить *.xls в качестве таблицы


1-1089195017
GreySerg
2004-07-07 14:10
2004.07.18
Почему после отключения debug info exeшник не уменьшается ?