Работа с Tray

← →
Александр1 (2004-02-18 16:39) [0]

Помогите пожалуйста!
Это алгоритм помещения программы в Tray!!!!!!!!!
procedure TForm1.IconCallBackMessage(var Mess: TMessage);
var
sEventLog: String;
//x,y:integer;
lppoint : TPoint;
begin
case Mess.lParam of

//

← →
Александр1 (2004-02-19 18:51) [1]

Люди помогите пожалуйста!!!!!!!!!!!!!!!!!!!!!!!!!

← →
TUser © (2004-02-19 18:54) [2]

Похвально, конечно все на апях писать, но м.б. лучше TTrayIcon?

← →
Александр1 (2004-02-25 18:14) [3]

Люди помогите пожалуйста!!!!!!!!!!!!!!!!!!!!!!!!!

← →
Palladin © (2004-02-25 18:18) [4]

не соблюдена рекомендация №7

← →
Александр1 (2004-02-26 14:12) [5]

Какая ещё рекомендация?????????? Непонял?????????

← →
ssk (2004-02-26 15:27) [6]

Это шестая... Кто следующий? ;-)

← →
Rouse_ © (2004-02-26 15:35) [7]

Вот тебе седьмая рекомендация:
Рисуй хинт самостоятельно при получении события WM_MOUSEMOVE
Для этого используй регионы.
Пример рисования подобных хинтов однажды привел Игорь Шевченко: http://www.delphikingdom.com/treasury/hsdialogs.htm

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

← →
Rouse_ © (2004-02-26 15:38) [8]

Упс - оговорился ;)
Конечно же не события - а сообщения (хотя это и не принципиально - смысл тотже)

← →
Fay © (2004-02-26 16:12) [9]

type
FayND = packed record
cbSize : DWORD;
Wnd : HWND;
uID : UINT;
uFlags : UINT;
uCallbackMessage : UINT;
hIcon : HICON;
szTip : packed array[0..127] of AnsiChar;
dwState : DWORD;
dwStateMask : DWORD;
szInfo : packed array[0..255] of AnsiChar;
uTimeout : UINT;
szInfoTitle : packed array[0..63] of AnsiChar;
dwInfoFlags : DWORD
end;

var
nd : FayND;
sInfo : string;
sInfoTitle : string;
begin
sInfo := "Мессага";
sInfoTitle := "Заголовок";
nd.cbSize := SizeOf(FayND);
nd.Wnd := Handle;
nd.uID := 1;
nd.uFlags := 16; // NIF_INFO
lstrcpyn(nd.szInfoTitle, PChar(@sInfoTitle[1]), Length(sInfoTitle) + 1);
lstrcpyn(nd.szInfo, PChar(@sInfo[1]), Length(sInfo) + 1);
nd.dwInfoFlags := 1; // NIIF_INFO
Shell_NotifyIcon(NIM_MODIFY, @nd);
end;

← →
Александр1 (2004-02-26 16:52) [10]

Rouse_ спасибо за ссылку.
HSShowMessage("Введено допустимое значение", Edit2);
Да! Но сообщение выводися и показывает на Edit2. А как мне указать его на значёк созданный рядом с часами (tray)??????

← →
Fay © (2004-02-26 16:57) [11]

Ты ответы читаешь?

← →
Александр1 (2004-02-26 16:59) [12]

Fay - твоя чё-то не пашет не компилируется. Компелятор указывает на строчку Shell_NotifyIcon(NIM_MODIFY, @nd);
С ней чё-то не в порядки!

← →
Fay © (2004-02-26 17:14) [13]

Дя-я. Я не в силах помочь тому, у кого "компелятор"...

← →
Александр1 (2004-02-26 17:26) [14]

Да я согласен с русским у меня плохо. Fay ну всё таки почемы не работает Shell_NotifyIcon(NIM_MODIFY, @nd);

"компелятор" выдает ошибку лишь при отсутствии ShellAPI в uses

← →
Александр1 (2004-02-26 18:51) [16]

Serge - Спасибо большое!!!!!!!!!!!!

← →
Александр1 (2004-02-26 19:03) [17]

Супер!!!!!!!!!!!!!!!!!!!!!! Спасибо вам большое Пример Fay работает. Вы даже не представляете как я рад!!!! Спасибо и ещё тысячу раз спасибо!!!!
Только такой вопрос не знаете как сделать так, чтобы это окошко около Tray исчезало через определённое время заданное программистом.

nd.uTimeout := от 10с до 30с

...в миллисекундах 8)

← →
Александр1 (2004-02-26 20:15) [20]

Ну вроде всё! Спасибо Fay ещё раз всё классно работает! И исчезание окна тоже работает! Спасибо!!!!!!!!!!!!!!!!!
У меня правдо ещё есть вопросы, но они в другом форуме. Вопросы про MS Word (работа с Word)
До свидания!

Работа с Tray Найти похожие ветки