Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: 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 вся ветка

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.041 c
1-1080068374
Vovans
2004-03-23 21:59
2004.04.11
Фокус в MDI приложении.


9-1070788187
Yegor
2003-12-07 12:09
2004.04.11
Как написать тренер?


1-1079536055
Samael6
2004-03-17 18:07
2004.04.11
Нужна помощь по методам декомпрессии


14-1082131239
Soft
2004-04-16 20:00
2004.04.11
Синдром выгорания как результат обыденных стрессов.


1-1080065431
Олег
2004-03-23 21:10
2004.04.11
Вопрос по Записи - данные из разных типов





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский