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

Вниз

TrayIcon   Найти похожие ветки 

← →
anonymos   (2003-01-05 20:30) [0]

Моя программа по нажатии кнопки помещается в трей. Я пытался сделать такую вещь: чтобы по нажатии кнопки мыши на иконке(в трее) показывалась форма, а иконка удалялась. Все происходит,только не по нажатию, а по наводу курсора мыши. Вот код:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ShellAPI, StdCtrls;
const
WM_NOTIFYTRAYICON = WM_USER + 1;
type
TForm1 = class(TForm)
Button4: TButton;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
procedure WMTRAYICONNOTIFY(var Msg: TMessage);
message WM_NOTIFYTRAYICON;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WMTRAYICONNOTIFY(var Msg: TMessage);
var
tray: TNotifyIconData;
begin
case Msg.LParam of WM_LBUTTONDBLCLK:
end;
ShowWindow(Application.Handle,SW_SHOWNORMAL);
ShowWindow(Application.Handle,SW_Show);
begin
with tray do begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Form1.Handle;
uID := 1;
end;
Shell_NotifyIcon(NIM_DELETE, Addr(tray));
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
tray: TNotifyIconData;
Ic: TIcon;
begin
Ic := TIcon.Create;
Ic.LoadFromFile("c:\pl.ico");
with tray do begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Form1.Handle;
uID := 1;
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallBackMessage := WM_NOTIFYTRAYICON;
hIcon := Ic.Handle;
szTip := ("Trayicon");
Application.Minimize;
ShowWindow(Application.Handle, SW_HIDE);
end;
Shell_NotifyIcon(NIM_ADD, Addr(tray));
Ic.Destroy;
end;
procedure TForm1.FormDestroy(Sender: TObject);
var
tray: TNotifyIconData;
begin
with tray do begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Form1.Handle;
uID := 1;
end;
Shell_NotifyIcon(NIM_DELETE, Addr(tray));
end;
end.


---

← →
Ipx   (2003-01-05 21:07) [1]

TNotifyEvent

---

← →
Rouse_   (2003-01-05 21:26) [2]

Довольно интересная конструкция :))

begin
case Msg.LParam of WM_LBUTTONDBLCLK:
end;

Подумайте над ней

Желаю успехов

---

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

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

Наверх

Память: 0.44 MB
Время: 0.01 c