Форум: "Основная";
Текущий архив: 2004.03.09;
Скачать: [xml.tar.bz2];
ВнизРабота с 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);
← →
Serge (2004-02-26 17:41) [15]"компелятор" выдает ошибку лишь при отсутствии ShellAPI в uses
← →
Александр1 (2004-02-26 18:51) [16]Serge - Спасибо большое!!!!!!!!!!!!
← →
Александр1 (2004-02-26 19:03) [17]Супер!!!!!!!!!!!!!!!!!!!!!! Спасибо вам большое Пример Fay работает. Вы даже не представляете как я рад!!!! Спасибо и ещё тысячу раз спасибо!!!!
Только такой вопрос не знаете как сделать так, чтобы это окошко около Tray исчезало через определённое время заданное программистом.
← →
Fay (2004-02-26 19:31) [18]nd.uTimeout := от 10с до 30с
← →
Fay (2004-02-26 19:32) [19]...в миллисекундах 8)
← →
Александр1 (2004-02-26 20:15) [20]Ну вроде всё! Спасибо Fay ещё раз всё классно работает! И исчезание окна тоже работает! Спасибо!!!!!!!!!!!!!!!!!
У меня правдо ещё есть вопросы, но они в другом форуме. Вопросы про MS Word (работа с Word)
До свидания!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.03.09;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.009 c