Problem pod NT4

Imam si edno speedbutonche(sbtnMenu). Kato se natisne stava tova:

var
x, y: Integer;
begin
x := sbtnMenu.ClientOrigin.X;
y := sbtnMenu.ClientOrigin.Y + sbtnMenu.Height;
pmMenu.Popup(x, y);

Problema e che pod NT4 popup menuto (pmMenu) ne izliza...

--------------------------------------------
object pmMenu: TPopupMenu
AutoPopup = False
MenuAnimation = [maTopToBottom]
TrackButton = tbLeftButton
--------------------------------------------

by Wise Guy
[email protected]

Znachi problema e v pmMenu.Popup();
Smenih go napravo s TrackPopupMenu i si bachka. Problema e neide iz:
procedure PopupMenu.Popup();
begin
...
end

Nqkoi s NT4 moje li da proveri kakvo tochno stava?

by Wise Guy
[email protected]