PopUp Menu,

← →
Igor Kashtanov (2003-03-07 01:45) [0]

Всем привет еще раз!
PopUp Menu появляется по нажатию функциональной клавиши. При этом курсором не выделяется ни один пункт меню. Каким образом активизировать курсор на первом элементе меню?

← →
Вопрошающий (2003-03-07 05:02) [1]

SetCursorPos

← →
Igor Kashtanov (2003-03-07 08:40) [2]

Может я неправильно выразился. Не стрелочный курсор, а именно синюю полосу на менюшке.Именно она нужна на первом элементе меню.

← →
xception (2003-03-07 16:51) [3]

procedure TMainForm.Timer1Timer(Sender: TObject);
var P: TPoint;
begin
P := Point(200,200);
SetCursorPos(P.X + 10, P.Y + 5);
PopupMenu1.Popup(P.X, P.Y);
Timer1.Enabled := False;
end;

через sendmessage(..., WM_DRAWITEM

PopUp Menu, Найти похожие ветки