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

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

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

Как в Трей добавить текст?

Tippy © (2001-11-29 20:44:00)
Как в Трей добавить текст, так что бы можно было изменить шрифт его, цвет текста и цвет под текстом, и по нажатию правой кнопки мыши на нем, открывалась Form1?

valery_f (2001-12-04 12:08:00) [1]
Olgerd> SetLocaleInfo( ...LOCALE_STIMEFORMAT...
Обращаю внимание - эта операция меняет формат текстового представления времени в системе! После этого приходится лезть в Regional settings и восстанавливать его...

Nikolay (2001-12-02 11:53:00) [2]
2rsmike
нет это конечно. но раз мы заговорили
о том что текст в треет это "немножко"
текст в часах.... :-))

Вот так!(с)

rsmike (2001-12-02 02:55:00) [3]
>Nikolay
а вот и сам неправ :)) это будут сообщения от нажатия на часы целиком, а не на текств трее! да и подобный текст назвать "текстом в tray" можно вееесьма условно.

Pat (2001-12-02 01:22:00) [4]
Смотри сюда:
http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988620752&n=15

Nikolay (2001-12-01 22:01:00) [5]
>rsmike
а вот неправ, можно обрабатывать нажатие мыши!
надо только хендл получить!

вот так!

Olgerd (2001-12-01 19:49:00) [6]
Я это знаю, но я предложил единственный способ.

rsmike (2001-12-01 14:55:00) [7]
>Olgerd ©
А вот ты и не прав.
Это ты не в трей текст добавил, а в часы. И уж тем более не получится обрабатывать события от этого текста.

Olgerd (2001-12-01 14:26:00) [8]
>valery_f (01.12.01 11:36)
А вот ты и не прав.
procedure TForm1.Button1Click(Sender: TObject); var res: DWORD; begin SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_STIMEFORMAT, PChar(" Привет H:mm")); SendMessageTimeout(FindWindow("Shell_TrayWnd", Nil), WM_SETTINGCHANGE, 0, 0, SMTO_NORMAL, 1000, res); end;
Ну как?

valery_f (2001-12-01 11:36:00) [9]
Насколько я знаю, "официально" туда можно вставлять только иконки. Вариант - несколько иконок подряд, которые сложатся в текстовую строку (баловство мысли :))), но там не все так просто.

Tippy (2001-12-01 01:02:00) [10]
Begin
Showmessage( "Неужели никто не знает???");
Showmessage( "Помогите ПЛИЗ!!!");
Showmessage( "Ну хотябы как просто текст в ТРЕЙ добавить?");
Showmessage( "ТРЕЙ "+"(Для полных ламеров :-)"+" это возле часиков (внизу справа!))";
End;
End.

Наверх

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