THintWindow *CustomGridHint;
// In constructor
CustomGridHint = new THintWindow(DBGrid1);
void __fastcall TForm1::DBGrid1MouseMove(TObject* Sender, ...)
{
TCustomGrid *Grid = (TCustomGrid *)Sender;
if( Y < Grid->DefaultRowHeight )
{
int i, cx = 0, l = Grid->ColCount;
for( i=0;i<l;i++)
{
if( X > cx && X < (cx + Grid->ColWidths))
break;
}
if(i < l)
{
CustomGridHint->ActivateHint(TRect(X, Y, 100, 25), "This
is column " + IntToStr(i));
}
}
else
{
CustomGridHint->ReleaseHandle();
}
}
Цвет Hint'а
Возможно ли в Builder изменение цвета Hint'а? В свойствах я такой возможности не увидел.
Цитата:
Originally posted by Fan][
Возможно ли в Builder изменение цвета Hint'а? В свойствах я такой возможности не увидел.
Возможно ли в Builder изменение цвета Hint'а? В свойствах я такой возможности не увидел.
В каких свойствах смотрел-то?
Application->HintColor = clRed;
Цитата:
Originally posted by GIZMO
В каких свойствах смотрел-то?
Application->HintColor = clRed;
В каких свойствах смотрел-то?
Application->HintColor = clRed;
Ну да... Но это для всего Application. А для отдельного котрола?
Цитата:
Originally posted by Fan][
Ну да... Но это для всего Application. А для отдельного котрола?
Ну да... Но это для всего Application. А для отдельного котрола?
Варианты:
1. Попробуй перехватить CM_HINTSHOW см. LParam указатель на THintInfo
2. Создай свой экз. THintWindow и показывай его в MouseMove.
Код:
Примерные варианты, проверить не могу нет Билдера под рукой...