Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2005.02.27;
Скачать: [xml.tar.bz2];

Вниз

Сообщение внизу...   Найти похожие ветки 

 
Pomestnik   (2005-01-15 13:40) [0]

Смотрите, у меня есть прога, она сворачивается в  трей, как сделать, чтобы когда она в трее по событию
ну например по онТаймер появлятось сообщение , но не простое , а как например  когда к интернету подключаешся
появляется внизу где часы сообщение со скоростью интернета.


 
Eraser ©   (2005-01-15 16:25) [1]

Pomestnik
Я недавно пару раз задавал подобный вопрос, ответа так и не получил... ((


 
Fktrc ©   (2005-01-15 16:57) [2]

Как сделать Balloon Tooltips
------------------------------------

Автор: http://www.swissdelphicenter.ch
uses
 Commctrl;

procedure ShowBalloonTip(Control: TWinControl; Icon: integer; Title: pchar;
 Text: PWideChar;
 BackCL, TextCL: TColor);
const
 TOOLTIPS_CLASS = "tooltips_class32";
 TTS_ALWAYSTIP = $01;
 TTS_NOPREFIX = $02;
 TTS_BALLOON = $40;
 TTF_SUBCLASS = $0010;
 TTF_TRANSPARENT = $0100;
 TTF_CENTERTIP = $0002;
 TTM_ADDTOOL = $0400 + 50;
 TTM_SETTITLE = (WM_USER + 32);
 ICC_WIN95_CLASSES = $000000FF;
type
 TOOLINFO = packed record
   cbSize: Integer;
   uFlags: Integer;
   hwnd: THandle;
   uId: Integer;
   rect: TRect;
   hinst: THandle;
   lpszText: PWideChar;
   lParam: Integer;
 end;
var
 hWndTip: THandle;
 ti: TOOLINFO;
 hWnd: THandle;
begin
 hWnd := Control.Handle;
 hWndTip := CreateWindow(TOOLTIPS_CLASS, nil,
   WS_POPUP or TTS_NOPREFIX or TTS_BALLOON or TTS_ALWAYSTIP,
   0, 0, 0, 0, hWnd, 0, HInstance, nil);
 if hWndTip <> 0 then
 begin
   SetWindowPos(hWndTip, HWND_TOPMOST, 0, 0, 0, 0,
     SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
   ti.cbSize := SizeOf(ti);
   ti.uFlags := TTF_CENTERTIP or TTF_TRANSPARENT or TTF_SUBCLASS;
   ti.hwnd := hWnd;
   ti.lpszText := Text;
   Windows.GetClientRect(hWnd, ti.rect);
   SendMessage(hWndTip, TTM_SETTIPBKCOLOR, BackCL, 0);
   SendMessage(hWndTip, TTM_SETTIPTEXTCOLOR, TextCL, 0);
   SendMessage(hWndTip, TTM_ADDTOOL, 1, Integer(@ti));
   SendMessage(hWndTip, TTM_SETTITLE, Icon mod 4, Integer(Title));
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowBalloonTip(Button1, 1, "Title",
   "Balloon tooltip,http://kingron.myetang.com; updated by Calin", clBlue,
     clNavy);
end;
Проект Delphi World © Выпуск 2002 - 2004
Автор проекта: ___Nikolay


 
Sicilla ©   (2005-01-15 19:04) [3]

Не мучайтесь, скачайте компонент CoolTray. И используйте Trayicon1.ShowBalloonHint(prov_info.p[col,1],"Прогноз отключения:",bitInfo,10);.


 
Eraser ©   (2005-01-15 20:49) [4]

Fktrc ©
Sicilla ©

Огромное спасибо! Давно искал такую инфу.


 
grom   (2005-01-15 21:35) [5]

http://www.delphikingdom.info/asp/answer.asp?IDAnswer=26401



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

Форум: "WinAPI";
Текущий архив: 2005.02.27;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.031 c
1-1108126253
snake_r
2005-02-11 15:50
2005.02.27
выделение в StringGrid


3-1106630033
Lucifer
2005-01-25 08:13
2005.02.27
Отображение поля Time в DBEdit при использовании базы данных MS A


1-1108537973
Zhekson
2005-02-16 10:12
2005.02.27
Иконка в StatusBar_e - это реально???


9-1096370533
Colt1978
2004-09-28 15:22
2005.02.27
Ландшафт ?!?


1-1107854441
TP
2005-02-08 12:20
2005.02.27
Хранение и считывание древовидной структуры данных





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский