VPF::Щелчок мышки по всплывающей подсказке TrayIcon

Akella

Дата 22.4.2010, 15:50 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

В Delphi 2007 есть стандартная компонента TrayIcon. У неё есть событие OnClick, но компонента реагирует только на щелчок непосредственно на значке в области уведомлений (возле часов).
Вот что нужно. Я показываю какое-то сообщение. И далее текст Щёлкните здесь для продолжения. Как можно обработать щелчок непосредственно по всплывающей подсказке?

Это сообщение отредактировал(а) Akella - 23.4.2010, 08:52

Romikgy

Дата 22.4.2010, 17:48 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Возможно поможет подмена функции обработки сообщений, и доп. обработка сообщения от мышки

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

ZBugz

Дата 23.4.2010, 08:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

Репутация: 6
Всего: 6

Я вот не помню как в Delphi 2007, а в 2010 есть свойство onBalloonClick, щас проверил, все пашет, но тока по любой области и текста и самого окошка подсказки

Rennigth

Дата 23.4.2010, 14:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

Akella, Можно так:

Код


  TCrackTrayIcon = class(TTrayIcon)
  protected
    procedure WindowProc(var Message: TMessage); override;
  end;
//...
{ TCrackTrayIcon }
procedure TCrackTrayIcon.WindowProc(var Message: TMessage);
begin
  inherited;
  if (Message.Msg = WM_SYSTEM_TRAY_MESSAGE) and
      (Message.LParam = 1029) then //можно 1028, приходит и то и то.
  begin
    //
    ShowMessage('Кликнули по балуну');
  end;
end;

Но создавать уже ручками надо.

--------------------

(* Honesta mors turpi vita potior *)

Akella

Дата 23.4.2010, 14:52 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Спасибо. Попробую.

Rennigth

Дата 23.4.2010, 14:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

upd

Код


procedure TCrackTrayIcon.WindowProc(var Message: TMessage);
begin
  inherited;
  if (Message.Msg = WM_SYSTEM_TRAY_MESSAGE) and
      (Message.LParam = NIN_BALLOONUSERCLICK) then
  begin
    //
    ShowMessage('Кликнули по балуну');
  end;
end;

--------------------

(* Honesta mors turpi vita potior *)

Akella

Дата 6.4.2012, 12:20 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Это получается, что TCrackTrayIcon нужно во время исполнения программы создавать?

Akella

Дата 6.4.2012, 12:37 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Сделал, работает!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »