procedure TForm1.BitBtn1MouseUp(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
var
P:TPoint;
begin
GetCursorPos(p);
ComboBox2.Left:=P.X;
ComboBox2.Top:=p.Y;
p:= ScreenToClient(p);//如果使用Left和Top定位，需要对P进行转换。
ListBox1.Left:=p.X;
ListBox1.Top:=p.Y;
ListBox1.Visible:=True;
//PopupMenu1.Popup(p.X,p.Y);
//菜单不需要转换到客户窗口坐标。
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
ListBox1.Visible:=False;
end;
