VPF::tooltip - Форум программистов

retto

Дата 14.4.2010, 12:46 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 167
Регистрация: 30.10.2007
Где: Кривой Рог, Украи на

Репутация: нет
Всего: нет

Есть ли стандартный tooltip который можно вызывать при срабатывании определенного условия?

borisbn

Дата 14.4.2010, 14:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 4875
Регистрация: 6.2.2010
Где: Ростов-на-Дону

Репутация: 18
Всего: 135

1. THintWindow
2.

Код


HWND toolTip = CreateWindow( TOOLTIPS_CLASS,
    NULL,
    WS_POPUP | TTS_NOPREFIX | TTS_BALLOON,
    0, 0, 0, 0,
    NULL, NULL, NULL, NULL );
TOOLINFO info;
info.cbSize = sizeof(TOOLINFO);
info.uFlags = TTF_IDISHWND | TTF_PARSELINKS;
info.hwnd   = main_form->Handle;
info.uId    = 0;
info.hinst  = NULL;
info.lpszText = "tool tip text";

GetClientRect( main_form, &info.rect );
SendMessage( toolTip, TTM_ADDTOOL, 0, (LPARAM)&info );
SendMessage( toolTip, TTM_SETMAXTIPWIDTH, 0, 300 );
...
SendMessage( toolTip, TTM_TRACKACTIVATE, TRUE, (LPARAM)&info);

вообщем смотри SendMessag'и для TTM_xxx

--------------------

Женщины отличаются от программистов тем, что у них чары состоят из стрингов

oldcode

Дата 3.1.2011, 09:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 116
Регистрация: 8.10.2010

Репутация: 0
Всего: 0

Делаю для RAD XE :

Код

TForm1*main_form;
UnicodeString str= "Some Text";
HWND toolTip = CreateWindow( TOOLTIPS_CLASS,
NULL,
WS_POPUP | TTS_NOPREFIX | TTS_BALLOON,
0, 0, 0, 0,
NULL, NULL, NULL, NULL );
TOOLINFO info;
info.cbSize = sizeof(TOOLINFO);
info.uFlags = TTF_IDISHWND | TTF_PARSELINKS;
info.hwnd   = main_form->Handle;
info.uId    = 0;
info.hinst  = NULL;
info.lpszText = str.c_str();
GetClientRect(main_form,&info.rect); // Error
SendMessage( toolTip, TTM_ADDTOOL, 0, (LPARAM)&info );
SendMessage( toolTip, TTM_SETMAXTIPWIDTH, 0, 300 );
SendMessage( toolTip, TTM_TRACKACTIVATE, TRUE, (LPARAM)&info);

получаю

Цитата

[BCC32 Error] ... : E2227 Extra parameter in call to _fastcall TCustomForm::GetClientRect()

- для строки -

Код

GetClientRect(main_form,&info.rect);

Что не так ?

Dem_max

Дата 3.1.2011, 09:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1780
Регистрация: 12.4.2007

Репутация: 14
Всего: 39

Код


RECT rcClient;

GetClientRect(main_form->Handle, &rcClient);

--------------------

Американские программисты долго не могли понять, почему русские при зависании Windоws всё время повторяют "Твой зайка написал" ("Yоur bunnу wrоte")

oldcode

Дата 3.1.2011, 15:44 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 116
Регистрация: 8.10.2010

Репутация: 0
Всего: 0

не помогло, та же ошибка в той же строке smile

Dem_max

Дата 3.1.2011, 16:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1780
Регистрация: 12.4.2007

Репутация: 14
Всего: 39

тады так

Код


RECT rcClient;
::GetClientRect(Form1->Handle, &rcClient);

--------------------

oldcode

Дата 4.1.2011, 08:46 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 116
Регистрация: 8.10.2010

Репутация: 0
Всего: 0

Рисует

нууу оччень мноого ToolTip'ов smile

, при этом - если форму сдвинуть - оные ToolTip'ы стойко остаются на своем месте и каждый из них даже реагирует на щелчек мыши - передвигается на передний план.
user posted image

Но ошибок нет smile

и выглядит оччень даже классно smile

. Хочется

...
НО - шо не так smile

? Как исправить

Код

void __fastcall TForm1::RichEdit1MouseMove(TObject *Sender, TShiftState Shift, int X,
                    int Y)
{
RECT rcClient;
UnicodeString str= "Some Text";
HWND toolTip = CreateWindow( TOOLTIPS_CLASS,
NULL,
WS_POPUP | TTS_NOPREFIX | TTS_BALLOON,
0, 0, 0, 0,
NULL, NULL, NULL, NULL );
TOOLINFO info;
info.cbSize = sizeof(TOOLINFO);
info.uFlags = TTF_IDISHWND | TTF_PARSELINKS;
info.hwnd   = RichEdit1->Handle;
info.uId    = 0;
info.hinst  = NULL;
info.lpszText = str.c_str();
::GetClientRect(RichEdit1->Handle, &rcClient);
//GetClientRect(main_form,&info.rect); // Error
SendMessage( toolTip, TTM_ADDTOOL, 0, (LPARAM)&info );
SendMessage( toolTip, TTM_SETMAXTIPWIDTH, 0, 300 );
SendMessage( toolTip, TTM_TRACKACTIVATE, TRUE, (LPARAM)&info);
}

Это сообщение отредактировал(а) oldcode - 4.1.2011, 08:57

Dem_max

Дата 4.1.2011, 09:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1780
Регистрация: 12.4.2007

Репутация: 14
Всего: 39

вот почитай тут обязательно и поймешь шо и как делать http://msdn.microsoft.com/en-us/library/bb...2(v=vs.85).aspx

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »