procedure TForm1.bsSkinButton2Click(Sender: TObject);
var
rect1:trect; //开始菜单的位置确定
begin
GetWindowrect(bsSkinButton2.Handle,rect1);
if rect1.Top>bsSkinPopupMenu1.Items.Count*15+3 then
bsSkinPopupMenu1.Popup(rect1.Left-10,rect1.top-bsSkinPopupMenu1.Items.Count*0-8)
else
bsSkinPopupMenu1.Popup(rect1.Left,rect1.bottom);
end;