Пытаюсь испольтзовать Application->ActivateHint(TPoint&), но что-то не выходит.
Код | void __fastcall TFMain::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { Image1->ShowHint = true; TPoint pt = Image1->ClientToScreen(TPoint(X,Y)); Application->ActivateHint(pt); } //--------------------------------------------------------------------------- void __fastcall TFMain::Image1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { Image1->ShowHint = false; } //--------------------------------------------------------------------------- void __fastcall TFMain::Image1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { if(Shift.Contains(ssLeft)) { TPoint pt = Image1->ClientToScreen(TPoint(X,Y)); Application->ActivateHint(pt); } }
|
При нажатии мыши ничего не происходит. При ее движении подсказка появляется мгновенно и носится за курсором. При отпускании мыши подсказка исчезает. Все хорошо, за исключением того, что подсказка сразу не появляется при нажатии мыши. Непонятно почему, ведь директива есть. Собственна точно такая же директива в OnMouseMove и она работает. Почему же она не работает в OnMouseDown? |