Текущий архив: 2006.07.23;
Скачать: CL | DM;
Вниз
Как послать сообщение элементу, будто над ним находится мышь? Найти похожие ветки
← →
mmms (2006-06-07 16:19) [0]Хотелось бы показать хинт(Balloon), но не помещая мышь над сам элемент. Пытался
SendMessage(CheckBox1.Handle, WM_MOUSELEAVE, ???, 0);но плохо нужные сообщения представляю :(
← →
evvcom © (2006-06-07 17:11) [1]Попробуй, может устроит?
// Почему-то некоторые контролы, например, PageControl, генерят дополнительные
// OnMouseMove (с теми же координатами), когда перемещения собственно и не было.
// Поэтому запоминаем старые координаты и анализируем.
var
PrevHintControl: TControl;
PrevCursorPos: TPoint;
procedure DoShowHint(Control: TControl);
var
l_P: TPoint;
l_Message: TWMMouse;
begin
if Control.Hint = "" then
Application.CancelHint
else begin
GetCursorPos(l_P);
if (Control = PrevHintControl) and (CompareValue(Int64(l_P), Int64(PrevCursorPos)) = 0) then Exit;
l_Message.Pos := PointToSmallPoint(Control.ScreenToClient(l_P));
Application.CancelHint;
Application.HintMouseMessage(Control, TMessage(l_Message));
PrevHintControl := Control;
PrevCursorPos := l_P;
end;
end;
← →
StriderMan © (2006-06-07 17:23) [2]Попробуй WM_MOUSEMOVE, WM_MOUSEHOVER
а еще можно напрямую вызвать
Страницы: 1 вся ветка
Текущий архив: 2006.07.23;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.029 c
