Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

Видеокурс программиста и крэкера 5D 2O17
(актуальность: август 2O17)
Свежие инструменты, новые видеоуроки!

  • 400+ видеоуроков
  • 800 инструментов
  • 100+ свежих книг и статей

УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Кнопки в панели задач Windows



 // Это необходимо объявить в секции public в верхней части вашего pas-файла
 procedure TForm1.IconCallBackMessage( var Mess : TMessage ); message WM_USER + 100;
 


 procedure TForm1.FormCreate(Sender: TObject);
 var
 
   nid: TNotifyIconData;
 begin
 
   with nid do
   begin
     cbSize := SizeOf(TNotifyIconData);
     Wnd := Form1.Handle;
     uID := 1;
     uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
     uCallbackMessage := WM_USER + 100;
     hIcon := Application.Icon.Handle;
     szTip := 'Текст всплывающей подсказки';
   end;
   Shell_NotifyIcon(NIM_ADD, @nid);
 end;
 
 procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
 var
 
   nid: TNotifyIconData;
 begin
 
   with nid do
   begin
     cbSize := SizeOf(TNotifyIconData);
     Wnd := Form1.Handle;
     uID := 1;
     uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
     uCallbackMessage := WM_USER + 100;
     hIcon := Application.Icon.Handle;
     szTip := 'Текст всплывающей подсказки';
     // Все, что указано выше, не является обязательным
 
   end;
   Shell_NotifyIcon(NIM_DELETE, @nid);
 end;
 
 procedure TForm1.IconCallBackMessage(var Mess: TMessage);
 var
 
   sEventLog: string;
 begin
 
   case Mess.lParam of
     // Сделайте здесь все что вы хотите. Например,
     // вызов контекстного меню при нажатии правой кнопки мыши.
 
     WM_LBUTTONDBLCLK: sEventLog := 'Двойной щелчок левой кнопкой';
     WM_LBUTTONDOWN: sEventLog := 'Нажатие левой кнопки мыши';
     WM_LBUTTONUP: sEventLog := 'Отжатие левой кнопки мыши';
     WM_MBUTTONDBLCLK: sEventLog := 'Двойной щелчок мышью';
     WM_MBUTTONDOWN: sEventLog := 'Нажатие кнопки мыши';
     WM_MBUTTONUP: sEventLog := 'Отжатие кнопки мыши';
     WM_MOUSEMOVE: sEventLog := 'перемещение мыши';
     WM_MOUSEWHEEL: sEventLog := 'Вращение колесика мыши';
     WM_RBUTTONDBLCLK: sEventLog := 'Двойной щелчок правой кнопкой';
     WM_RBUTTONDOWN: sEventLog := 'Нажатие правой кнопки мыши';
     WM_RBUTTONUP: sEventLog := 'Отжатие правой кнопки мыши';
   end;
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS