Пишу гаджет. В модуле формы прописан такой код:
Код:
bool SetToDesktop() {
HWND listViewhwnd = FindWindowA("Progman", NULL);
if(listViewhwnd) {
listViewhwnd = FindWindowExA(listViewhwnd, NULL, "SHELLDLL_DefView", NULL);
if(listViewhwnd) {
listViewhwnd = FindWindowExA(listViewhwnd, NULL, "SysListView32", NULL);
if(listViewhwnd) {
Form1->BorderStyle = bsNone;
::SetParent(Form1->Handle, listViewhwnd);
return true;
}
}
}
return false;
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
if(!SetToDesktop())ShowMessage("Ошибка SetToDesktop");
}
В программе не отображаются всплывающие подсказки на всех объектах, хотя свойства ShowHint заданы в true. Если закомментировать
Код:
::SetParent(Form1->Handle, listViewhwnd);
, , то подсказки появляются. В каком направлении рыть?