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

Вниз

Как заставить контрол показать свой хинт ?   Найти похожие ветки 

 
MalkoLinge   (2003-07-23 14:08) [0]

В данный момент пытаюсь сделать это примерно так :

var
P: PhintInfo;
vpoint: TPoint;
begin
vpoint.X:=0;
vpoint.y:=0;

New(P);
with P^ do
begin
HintPos := ClientToScreen(Vpoint);
HintColor:=clInfoText;
end;

FDisplayEdit.Perform(CM_HintShow, 0, Integer(P))
end;

но ничего у меня не выходит....


 
Yanis   (2003-07-23 14:14) [1]

Application.ActivateHint(Mouse.CursorPos);


 
MalkoLinge   (2003-07-23 14:52) [2]


> Yanis © (23.07.03 14:14)
> Application.ActivateHint(Mouse.CursorPos);

Спасибо, но мне нужно это сделать сообщением, так как контрол который должен показать свой хинт, агрегирован в другой :(


 
Ader_007   (2003-07-23 15:36) [3]

Только седня получил рассылку:
{Появление}
IF h<>nil H.ReleaseHandle; {если чей-то хинт yже был, то его погасить}
H:=THintWindow.Create(Окно-владелец хинта);
H.ActivateHint(H.CalcHintRect(...),"hint hint nint");
....
{UnПоявление :) - это возможно пpидется повесить на таймеp, котоpый бyдетобнyляться пpи каждом новом появлении хинта}
IF h<>nil H.ReleaseHandle;


 
MalkoLinge   (2003-07-23 15:56) [4]


> Ader_007


Нужно чтоб контрол светил свой хинт %( Этот способ я знаю :(



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

Форум: "Основная";
Текущий архив: 2003.08.07;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.014 c
7-20835
Ромн
2003-05-21 12:25
2003.08.07
Нажатие на копку


14-20746
Dmitriy O.
2003-07-18 08:02
2003.08.07
Файлы BMP как контейнеры хранения информации.


14-20725
Димыч
2003-07-16 23:34
2003.08.07
Объектно-ориентированная технология


4-20870
Зинец Виктор
2003-06-03 14:40
2003.08.07
Хочу, чтобы форма была поверх всех окон


14-20777
chs2r
2003-07-21 15:30
2003.08.07
Как уменьшить размер программы?





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