一个DELPHI菜单的问题

Question

在DELPHI7里边怎么把菜单弄到窗体的下边，就像WINDOWS的开始菜单那样，是往上弹出的。那位老大知道告诉我一下，先谢谢了！！！
我来的时间不长，也不知道有多少分，谢谢大家了！！

Answer 1

在窗体上放一个TPopupMenu控件，下面用的是TButton来演示的，代码写在TButton的OnMouseUp里面。
procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  Ptp:PTPMParams;
begin
  if Button=mbLeft then
  begin
    GetMem(Ptp,SizeOf(TTPMParams));
    Ptp^.cbSize:=SizeOf(TTPMParams);
    Ptp^.rcExclude:=Rect(Mouse.CursorPos.X,Mouse.CursorPos.Y,Screen.Width,Screen.Height);
    TrackPopupMenuEx(PopupMenu1.Handle,TPM_CENTERALIGN or TPM_VERTICAL,Mouse.CursorPos.X,Mouse.CursorPos.Y,Handle,Ptp);
    FreeMem(Ptp);
  end;
end;