如何做一个按钮，单击后“向上”缓慢滑出一个菜单，（这个菜单是自定义的）(50分)

我也想知道

up

实在不知到如何向上滑出
希望这个让你满意

type
TForm1 = class(TForm)
Image1: TImage;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
procedure Image1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Image1Click(Sender: TObject);
var p:tpoint;
begin
GetCursorPos(p);
form1.PopupMenu1.Popup(p.x,p.y);
end;
//image就是按钮，把他的PopupMenu设为PopupMenu1；

缓慢滑出应该在PopupMenu1的popup事件中处理

?

如果不是用MenuAnimation的话,似乎要重新写PopupMenu控件
p.s. 刚刚看了Menus.Pas...里边的line: 3430
procedure TPopupMenu.Popup(X, Y: Integer);

我网站 http://www.to-happy.com 大事软件礼有相关例子，你需要吗？