VPF::Заставить появляться Hint в конкретных координатах

Fedor

Дата 8.11.2004, 10:55 (ссылка)

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

Загрузка ...

Днепрянин

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

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

Собственно, как сделать САБЖ.
У меня есть компонент. И мне нужно чтоб при наведении на него мышки Hint появлялся не в том месте, где курсор, а в определенных координатах на этом компоненте X и Y

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

Мы - Днепряне. Мы всех сильней.

Pakshin A. S.

Дата 8.11.2004, 13:46 (ссылка)

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

Загрузка ...

Эксперт

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

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

Лови:

Код


function RevealHint(Control: TControl; x,y:integer): THintWindow;
// Делаем подсказку для компонента Control в позиции (x;y) на компоненте
var
 ShortHint:string;
 AShortHint: array [0..255] of char;
 HintPos: TPoint;
 HintBox: TRect;
begin
 Result:=THintWindow.Create(Control);
 ShortHint:=GetShortHint(Control.Hint);
 HintPos:=Control.ClientOrigin;
 // далем сдвиг
 inc(HintPos.Y, y);
 inc(HintPos.X, x);
 HintBox:=Bounds(0, 0, Screen.Width, 0);
 DrawText(Result.Canvas.Handle, StrPCopy(AShortHint, ShortHint), -1, HintBox, DT_CANCRECT or DT_LEFT or DT_WORDBREAK or DT_NOPREFIX);
 OffsetRect(HintBox, HintPos,x, HintPos,y);
 // здесь, может, то же зявязка с позицией...
 inc(HintBox.Right, 6);
 inc(HintBox.Bottom, 2);
 Result.ActiveHint(HintBox, ShortHint);
end;

procedure RemoveHint(var Hint: THintWindow);
begin
 Hint.RealaseHandle;
 Hint.Free;
 Hint:=nil;
end;

Это сообщение отредактировал(а) Pakshin A. S. - 8.11.2004, 13:46

<Spawn>

Дата 8.11.2004, 13:47 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

Бросаешь на форму ApplicationEvents и пишешь обрабочтик OnHint примерно так:

Код


procedure TForm1.ApplicationEvents1ShowHint(var HintStr: String;
  var CanShow: Boolean; var HintInfo: THintInfo);
var
  P: TPoint;
begin
  if HintInfo.HintControl = Button1 then
  begin
    P := Point(Button1.Left + Button1.Width, Button1.Top + Button1.Height);
    P := ClientToScreen(P);
    //Отображаем подсказку в правом нижнем углу кнопки
    HintInfo.HintPos.X := P.X;
    HintInfo.HintPos.Y := P.Y;
  end;
end;

Это сообщение отредактировал(а) <Spawn> - 8.11.2004, 13:48

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

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Zero

Дата 8.11.2004, 14:36 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

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

<Spawn>, у меня такой же вопрос, но только, как сделать это если на форме будет метка Label

Pakshin A. S.

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

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

Загрузка ...

Эксперт

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

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

Тогда пробуем мой метод...
Он самомтоятельно моздает Hint для любого компонента... Можно ещё в процедуру и вставить параметр, отвечающий за текст подсказки..

<Spawn>

Дата 8.11.2004, 15:29 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

Zero Ты хочешь отобржатаь подсказку в TLabel?

Если так, то:

Код


procedure TForm1.ApplicationEvents1ShowHint(var HintStr: String;
 var CanShow: Boolean; var HintInfo: THintInfo);
begin
  CanShow := False;
  Label1.Caption := HintStr;
end;

Это сообщение отредактировал(а) <Spawn> - 8.11.2004, 15:29

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

Zero

Дата 8.11.2004, 17:01 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

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

Цитата

Zero Ты хочешь отобржатаь подсказку в TLabel?

Только в заданых координатах...
И я не совсем понял как сделать метод ApplicationEvents1ShowHint
А кстати Pakshin A.S., в твоём сбособе DT_CANCRECT ─ является неизвесным идентификатором... smile

Pakshin A. S.

Дата 8.11.2004, 17:12 (ссылка)

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

Загрузка ...

Эксперт

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

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

DT_CALCRECT

Zero

Дата 8.11.2004, 17:23 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

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

Спасибо одну часть исправил, а вот теперь в строке

Код


OffsetRect(HintBox, HintPos,x, HintPos,y);

компмлятор выдаёт ошибку останавливаясь на x: след.:
[Error] Unit1.pas(41): Incompatible types: 'Integer' and 'TPoint'

Pakshin A. S.

Дата 8.11.2004, 17:57 (ссылка)

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

Загрузка ...

Эксперт

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

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

Сразу мог сказать?!
OffsetRect(HintBox, HintPos.x, HintPos.y);

Zero

Дата 8.11.2004, 18:43 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

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

Цитата

Сразу мог сказать?!

До него у меня компилятор тогда ещё не дошол тогда.
А вот теперь я думаю, остался последний неизвесный идентификатор: ActiveHint. smile

В строке

Код


Result.ActiveHint(HintBox, ShortHint);

Pakshin A. S.

Дата 9.11.2004, 19:32 (ссылка)

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

Загрузка ...

Эксперт

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

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

Да... без компилятора плохо... надо будет взять...
Result.ActivateHint(HintBox, ShortHint);

Zero

Дата 9.11.2004, 21:12 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

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

Цитата

А вот теперь я думаю, остался последний неизвесный идентификатор: ActiveHint.

Я был не прав smile

, но предпологаю, что заместо

Код


Hint.RealaseHandle;

надо

Код


Hint.ReleaseHandle;

При этом, наконец-то компилируется, но всётаки, вопрос был как отправить хинты в координать X,Y ─ при наведении курсора на Label?

Pakshin A. S.

Дата 9.11.2004, 21:35 (ссылка)

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

Загрузка ...

Эксперт

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

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

Берем и перадеём подскузку как параметр в процедуру. По событию "Мышь на lаbel" показываем hint, если не показан hint. Как мышь вышла, убираем...

Zero

Дата 9.11.2004, 23:22 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

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

Цитата

По событию "Мышь на lаbel" показываем hint

Ты имееш ввиду на событие Label1MouseMove, чтоль???
Неработает, т.к. в процедуре RemoveHint, всего один параметр, и он должен быть типа THintWindow.
Короче говоря, вот есть у меня, форма на которой, находится Label, а в окне кода есть две твоих процедуры, и что куда ещё нужно дописть чтобы всётаки подсказка выдавалась в координатах [x,y]. Да чтобы нам не путатся пусть X и Y, в процедуре создания форма присваивают значения [200,300].

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