Скачать: CL | DM;

Как показать стандартную WinXP подсказку (скнопкой "х" в правом в   Найти похожие ветки 

← →
saimon   (2004-07-22 20:42) [0]

Уважаемые, мастера, Подскажите пожалуйста...

Как показать стандартную WinXP подсказку (скнопкой "х" в правом верхнем углу), когда иконка проги в Systray"е?

Заранее благодарен, Saimon.

---

← →
grom   (2004-07-22 22:33) [1]

http://www.swissdelphicenter.ch/torry/printcode.php?id=1164
если это не поможет дам другой пример

---

← →
saimon   (2004-07-23 03:10) [2]

> grom   (22.07.04 22:33)

Скажите, плиз, а покороче никак нельзя???

---

← →
Fay   (2004-07-23 07:08) [3]

2saimon   (22.07.04 20:42)
Покороче: RTFM (PSDK/MSDN в данном случае)

---

← →
grom   (2004-07-23 07:37) [4]

по короче
----------
type
TNotifyIconBalloon = record
cbSize: DWORD;
hWnd: HWND;
uID: UINT;
uFlags: UINT;
uCallbackMessage: UINT;
hIcon: HICON;
szTip: array[0..127] of AnsiChar;
dwState: DWORD;
dwStateMask: DWORD;
szInfo: array[0..255] of AnsiChar;
uTimeout: UINT;
szInfoTitle: array[0..63] of AnsiChar;
dwInfoFlags: DWORD;
end;

function BalloonHint(NIco:integer;Flag:byte;Title,Text:string):Boolean;
function AddModDelIcon(H:HWND;R,NIco:integer;Icon:HICON;S:string):Boolean;

var
N:TNotifyIconBalloon;
implementation

//vvvvvvvvvvvvvvvvvv/ BalloonHint /vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
function BalloonHint(NIco:integer;Flag:byte;Title,Text:string):Boolean;
begin
 N.cbSize:=SizeOf(TNotifyIconBalloon);
 N.uID:=NIco;
 N.uFlags:=$00000010;
 StrPLCopy(N.szInfo,Text,SizeOf(N.szInfo)-1);
 StrPLCopy(N.szInfoTitle,Title,SizeOf(N.szInfoTitle)-1);
 N.uTimeout:=5000;
 N.dwInfoFlags:=Flag;
 Result:=Shell_NotifyIcon(NIM_MODIFY,@N);
end;
//vvvvvvvvvvvv/ Add Modify Delete Icon /vvvvvvvvvvvvvvvvvvvvvvvvvv
function AddModDelIcon(H:HWND;R,NIco:integer;Icon:HICON;S:string):Boolean;
begin
 N.cbSize:=SizeOf(TNotifyIconBalloon);
 N.hWnd:=H;
 N.uID:=NIco;
 N.uFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;
 N.uCallbackMessage:=WM_USER;
 N.hIcon := Icon;
 StrPLCopy(N.szTip,S,SizeOf(N.szTip)-1);
 if R=1 then Result:=Shell_NotifyIcon(NIM_ADD,@N);
 if R=2 then Result:=Shell_NotifyIcon(NIM_MODIFY,@N);
 if R=3 then Result:=Shell_NotifyIcon(NIM_DELETE,@N);
end;
...........
AddModDelIcon(Handle,1,1,0,"");
...........
BalloonHint(1,0,"Hint","BalloonHint");

---

← →
grom   (2004-07-23 07:41) [5]

BalloonHint(1,$00000001,"Hint","BalloonHint");вот как надо

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c