Текущий архив: 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