Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.07;
Скачать: CL | DM;

Вниз

Как свернуть программу, чтобы она появлялась на панели задач?   Найти похожие ветки 

 
bobr12   (2002-09-25 14:52) [0]

Собственно сообщение в теме


 
alxx ©   (2002-09-25 14:53) [1]

Application.Minimize;


 
Anatoly Podgoretsky ©   (2002-09-25 14:56) [2]

Сообственно так оно и происходит


 
bobr12   (2002-09-25 14:56) [3]

Имеется в виду свернуть туда, где часы


 
Anatoly Podgoretsky ©   (2002-09-25 14:59) [4]

Ну извини, это совсем не панель задач, панель задач левее


 
alxx ©   (2002-09-25 15:00) [5]


RxTrayIcon+Application.Minimize?


 
alxx ©   (2002-09-25 15:02) [6]

И панель задач и где часы см. выше.

ShowWindow(Handle, SW_HIDE); + TrayIcon - только где часы.


 
Song ©   (2002-09-25 15:04) [7]

http://pascal.sources.ru/cgi-bin/forum/YaBB.cgi?board=delphi;action=display;num=1020241631


 
AL2002 ©   (2002-09-25 15:25) [8]

Из какого-то дикого фака:
unit Unit1;
interface
uses
Windows, ShellAPI, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, ImgList;
type
TForm1 = class(TForm)
ImageList1: TImageList;
PopupMenu1: TPopupMenu;
N111111: TMenuItem;
N222221: TMenuItem;
N333331: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
Tr_Icon : TIcon;
TrayIcon: TNotifyIconData;
procedure OnMessage(var Msg: TMessage); virtual;
end;
const Wm_Callback_Msg = WM_User+100;

var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
FillChar(TrayIcon, SizeOf(TrayIcon), 0);
Tr_Icon := TIcon.Create;
ImageList1.GetIcon(0, Tr_Icon);
TrayIcon.cbSize:=SizeOf(TrayIcon);
TrayIcon.Wnd:=AllocateHwnd(OnMessage);
TrayIcon.HIcon:=Tr_Icon.Handle;
StrPLCopy(TrayIcon.szTip, Application.Title, SizeOf(TrayIcon.szTip)-1);
TrayIcon.uFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;
TrayIcon.uCallbackMessage:=Wm_Callback_Msg;
Shell_NotifyIcon(NIM_ADD, @TrayIcon);
end;
procedure TForm1.OnMessage(var Msg: TMessage);
procedure ShowPopup;
var
x, y : integer;
begin
x := GetSystemMetrics(SM_CXFULLSCREEN);
y := GetSystemMetrics(SM_CYFULLSCREEN) + GetSystemMetrics(SM_CYCAPTION);
PopupMenu1.Popup(x, y)
end;
begin
case Msg.Msg of


{procedure TGepardManagerForm.OnMessage(var Msg: TMessage);
begin
case Msg.Msg of}
Wm_Callback_Msg: case Msg.lParam of
Wm_LButtonDblClk : Show;
Wm_RButtonDown : ShowPopup;
end;
Wm_EndSession: Shell_NotifyIcon(NIM_DELETE, @Tr_Icon);
Wm_QueryEndSession: ;
Wm_Size : ;
Wm_ActivateAPP : ;
end;
end;


procedure TForm1.FormDestroy(Sender: TObject);
begin
Shell_NotifyIcon(NIM_DELETE, @TrayIcon);
end;
end.



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

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

Наверх




Память: 0.48 MB
Время: 0.019 c
3-20922
AlexeyBl
2002-09-17 15:24
2002.10.07
Как указать гриду какая строка должна быть в нем первой?


1-21066
Ago
2002-09-27 16:34
2002.10.07
Где найти иконки для дизайна?


1-21072
inc(665)
2002-09-24 17:01
2002.10.07
MouseEnter и MouseLeave для разных объектов


14-21261
RV
2002-09-13 11:05
2002.10.07
про Мышление. (Не про девушек :), просто...)


1-20960
vladimir_sv
2002-09-26 10:46
2002.10.07
Помагите начинающему.