Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как показать стандартную WinXP подсказку (скнопкой "х" в правом в [D6, D7, WinXP]

saimon © (2004-07-22 20:42:00)
Уважаемые, мастера, Подскажите пожалуйста...

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

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

grom (2004-07-23 07:41:00) [1]
BalloonHint(1,$00000001,'Hint','BalloonHint');вот как надо

grom (2004-07-23 07:37:00) [2]
по короче
----------
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');

Fay (2004-07-23 07:08:00) [3]
2saimon (22.07.04 20:42)
Покороче: RTFM (PSDK/MSDN в данном случае)

saimon (2004-07-23 03:10:00) [4]
> grom (22.07.04 22:33)

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

grom (2004-07-22 22:33:00) [5]
http://www.swissdelphicenter.ch/torry/printcode.php?id=1164
если это не поможет дам другой пример

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »