Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 090

•  TDictionary Custom Sort  6 178

•  Fast Watermark Sources  5 980

•  3D Designer  8 859

•  Sik Screen Capture  6 316

•  Patch Maker  6 728

•  Айболит (remote control)  6 724

•  ListBox Drag & Drop  5 582

•  Доска для игры Реверси  95 971

•  Графические эффекты  6 940

•  Рисование по маске  6 195

•  Перетаскивание изображений  5 111

•  Canvas Drawing  5 479

•  Рисование Луны  5 190

•  Поворот изображения  4 737

•  Рисование стержней  3 345

•  Paint on Shape  2 582

•  Генератор кроссвордов  3 481

•  Головоломка Paletto  2 783

•  Теорема Монжа об окружностях  3 582

•  Пазл Numbrix  2 351

•  Заборы и коммивояжеры  3 033

•  Игра HIP  1 990

•  Игра Go (Го)  1 911

•  Симулятор лифта  2 268

•  Программа укладки плитки  1 975

•  Генератор лабиринта  2 428

•  Проверка числового ввода  2 106

•  HEX View  2 436

•  Физический маятник  2 065

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

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





// Это необходимо объявить в секции 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;





Похожие по теме исходники

Задача «Иосифа Флавия»

Задача коммивояжера




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте