Скачать: CL | DM;

Как программно вызвать Hint ?   Найти похожие ветки 

← →
LedWorm   (2004-03-25 19:23) [0]

Мастера, ну хоть кто-нибудь подскажите, как можно программно заставить появиться подсказку? А то я на разных форумах писал, все пишут такое, что лучше на это дело вообще забить. неужели нельзя это сделать по-простому.

Заранее благодарен

---

← →
Юрий Зотов ©   (2004-03-25 19:38) [1]

Application.ActivateHint

---

← →
LedWorm   (2004-03-26 16:51) [2]

А это для любого компонента или только для аpplication.
Как вызвать подсказку для labeled edit ?

---

← →
Cobalt ©   (2004-03-26 22:48) [3]

> LedWorm   (26.03.04 16:51) [2]
Читайте справку - источник знаний!

---

← →
xman   (2004-03-26 23:04) [4]

попробуй это

function RevealHint (Control: TControl): THintWindow;
{----------------------------------------------------------------}
{ Демонстрирует всплывающую подсказку для определенного элемента }
{ управления (Control), возвращает ссылку на hint-объект,        }
{ поэтому в дальнейшем подсказка может быть спрятана вызовом     }
{ RemoveHint (смотри ниже).                                      }
{----------------------------------------------------------------}

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, Control.Height + 6);    <<<< Смотри примечание ниже
HintBox := Bounds(0, 0, Screen.Width, 0);
DrawText(Result.Canvas.Handle,
StrPCopy(AShortHint, ShortHint), -1, HintBox,
DT_CALCRECT or DT_LEFT or DT_WORDBREAK or DT_NOPREFIX);
OffsetRect(HintBox, HintPos.X, HintPos.Y);
Inc(HintBox.Right, 6);
Inc(HintBox.Bottom, 2);

{ Теперь показываем окно: }
Result.ActivateHint(HintBox, ShortHint);
end; {RevealHint}

procedure RemoveHint (var Hint: THintWindow);
{----------------------------------------------------------------}
{ Освобождаем дескриптор окна всплывающей подсказки, выведенной  }
{ предыдущим RevealHint.                                         }
{----------------------------------------------------------------}

begin
Hint.ReleaseHandle;
Hint.Free;
Hint := nil;
end; {RemoveHint}

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.038 c