VPF::Скрыть Хинт (THintWindow) по клику - Форум программистов

Мозгоносец

Дата 19.8.2009, 16:40 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 11.7.2009

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

Уважаемые господа! Стоит такая несложная задача: имею наследника THintWindowExt = class (THintWindow), нужно показывать по определенному событию объект Хинт этого класса и проигрывать в это время звук. Во время показа Хинта пользователь может прервать показ Хинта и прослушивание музыки, кликнув по Хинту. Вроде бы все просто, делаю примерно так:

Код


============
type
  THintWindowExt = class (THintWindow)
  private
    procedure Kill(Sender: TObject);
  public
    constructor Create(AOwner: TComponent); override;
end;
============

constructor THintWindowExt.Create(AOwner: TComponent);
begin
  inherited;
  Self.OnClick := SElf.Kill; // пробовал обрабатывать message   WM_LBUTTONDOWN - та же проблема...
end;

procedure THintWindowExt.Kill(Sender: TObject);
begin
// СЮДА СООБЩЕНИЕ НЕ ДОХОДИТ
//  Self.Color := clRed; 
  Self.Hide;
end;
==============

Но не работает.
Что я делаю не так? Да, Хинт создается в рантайме так: hnt := THintWindowExt.Create(Form1); hnt.Parent := Form1;
Вызывается к показу так: hnt.ActivateHint(rct, hnt.Text);

В справке написано, что при таком показе нужно убирать так: hnt.ReleaseHandle. Так и делаю. А нужно - по клику по нему мышкой. Спасибо.

MetalFan

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

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

Хинт - есть хинт... никаких кликов он не ловит, он для них "прозрачен"
причина:

Код


procedure THintWindow.WMNCHitTest(var Message: TWMNCHitTest);
begin
  Message.Result := HTTRANSPARENT;
end;

решение очевидно?

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

There are always someone smarter than you...

Мозгоносец

Дата 20.8.2009, 08:41 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 11.7.2009

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

Цитата(MetalFan @ 19.8.2009, 17:48)

Хинт - есть хинт... никаких кликов он не ловит, он для них "прозрачен"
причина:

Код


procedure THintWindow.WMNCHitTest(var Message: TWMNCHitTest);
begin
  Message.Result := HTTRANSPARENT;
end;

решение очевидно?

Вроде бы... Получилось так:

Код


procedure THintWindowEx.WMNCHitTest(var Message: TWMNCHitTest);
begin
  Message.Result := HTCLIENT;
  Parent.SetFocus; // попробуйте без этого
end;

В общем, спасибо!

MetalFan

Дата 20.8.2009, 14:05 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

Мозгоносец, имхо достаточно было и просто ничего не трогать в обработчике этого сообщения.

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

There are always someone smarter than you...

Мозгоносец

Дата 20.8.2009, 14:32 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 11.7.2009

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

Так если ничего не трогать, тогда и проблема возникает: на работает, как хочется... smile

MetalFan

Дата 20.8.2009, 17:02 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

Мозгоносец, я имел ввиду в методе наследника ничего не делать. т.е. не вызывать метод предка и не менять Message.Result

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

There are always someone smarter than you...

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