Попап меню

← →
sapsi (2004-06-09 09:06) [0]

Добрый день.
Почему то не отрабатывает открытие попап меню (PopupMenu1.Popup) в NT, в то вермя как в Win2k отрабатывает нормально.
В чем может быть проблема
Спасибо.

← →
grom (2004-06-09 09:09) [1]

procedure TForm1.Button1Click(Sender: TObject);
begin
PopupMenu1.Popup(Mouse.CursorPos.x,Mouse.CursorPos.y);
end;

← →
Gero © (2004-06-09 09:23) [2]

> В чем может быть проблема

В ручках/в коде/в vcl.

← →
sapsi (2004-06-09 09:24) [3]

Спасибо. Странно что в 2000 работает просто с x,y, а в нт нет

← →
Andrey007 (2004-06-09 09:29) [4]

А потому что не надо было трогать свойство MenuAnimation - если все значения оставить False, то будет работать и в NT.

← →
sapsi (2004-06-09 09:36) [5]

В 2000 работает это

PopupMenu1.Popup(100,200);
и это
PopupMenu1.Popup(Mouse.CursorPos.x+10,Mouse.CursorPos.y);

а в НТ не работает вообще никак

← →
Andrey007 (2004-06-09 09:48) [6]

Я ещё раз говорю - дело не в коде, а свойствах TPopupMenu. Я это уже проходил.
Если не верите, возьмите новый компонент TPopupMenu и проверьте на нём.

> дело не в коде

В коде.

← →
sapsi (2004-06-09 10:02) [8]

2 Andrey007
Точно. Спасибо.

Попап меню Найти похожие ветки