Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

Как программно вызвать 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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.041 c
8-1076424193
Maverick
2004-02-10 17:43
2004.04.11
ImageEn


1-1082719243
hawkins
2004-04-23 15:20
2004.04.11
как програмно присвоить обработчик события OnMouseMove у ListBox


14-1079257410
Mox Fulder
2004-03-14 12:43
2004.04.11
HDD


4-1075899409
graY
2004-02-04 15:56
2004.04.11
Как програмно щелкнуть на кнопке типа TToolButoon ведь у ...


6-1075573302
DillerXX
2004-01-31 21:21
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский