Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];




Вниз

Минимизация в systray по клику на taskbar...(Delphi,API) 


Nimnul   (2002-01-21 11:42) [0]

Использую RXLib.
Вот код:
[code]
type
TForm1 = class(TForm)
private
procedure WMSysCommand(var Msg: TWMSysCommand);message WM_SYSCOMMAND;
public
end;
................
//В систрей
procedure TForm1.WMSysCommand;
begin
if (Msg.CmdType = SC_MINIMIZE)
then
begin
ShowWindow(Application.Handle,SW_MINIMIZE);
ShowWindow(Application.Handle,SW_HIDE);
Tray.Active:=true;
end
else
inherited;
end;

//Из него
procedure TForm1.TrayClick(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ShowWindow(Application.Handle,SW_SHOW);
ShowWindow(Application.Handle,SW_RESTORE);
Tray.Active:=false;
end;
[/code]
Минимизируется только по клику на значек минимизации ("_")
а при клике по TaskBar"у остается свернутой там же!
Какое событие надо еще обрабатывать?Что бы при клике на таскбар она тоже сворачивалась?(Как у Зе Мышь?)
ОС:Win2kRus prof



Pat   (2002-01-21 11:52) [1]

Кинь на форму компонент ApplicationEvents и обрабатывай:

procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
ShowWindow(Application.Handle,SW_MINIMIZE);
ShowWindow(Application.Handle,SW_HIDE);
Tray.Active:=true;
end;



Nimnul   (2002-01-21 14:09) [2]

2Pat
Спасибо большое, очень нужно было.




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.019 c
7-57529           Serega__2             2001-12-10 09:29  2002.03.18  
Подскажите плз, как програмно вставить строку в Excel.


3-57334           AlexOb                2002-02-19 12:02  2002.03.18  
Как конвертнуть Paradox -> MySQL ?


1-57361           Rash                  2002-03-03 23:25  2002.03.18  
Округление переменной до 2 цифр


6-57482           HEX                   2002-01-03 20:54  2002.03.18  
Dialer компонент?


7-57530           Angar                 2001-11-26 11:52  2002.03.18  
Как можно программно отключить стандартный драйвер COM-порта в Win98/Me/NT/2000 ?