Как программно вызвать 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}

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