width、Height使用的尺度

Question

pannel2上放置TSpeeddButton和TfcShapeBtn
然后菜单分别在这两种按钮的右上角上popup
TSpeedButton上的正好在其右上角popup菜单出来,
但TfcShapeBtn的相隔很远距离，达不到效果了很可能width、Height属性使用的尺度单位不一样造成的//TSpeeddButton：
function TFormMain.client2screenEx(btn:TSpeedButton):Tpoint;
var
  p:tpoint;
begin
  p.X:=0;
  p.Y:=0;
  p.X:=btn.Left + btn.Width;
  p.Y :=btn.Top;
  p:=panel2.ClientToScreen(p);
  result:=p;
end;//引用
procedure TFormMain.btnReconnectClick(Sender:TObject);
var
  pt:Tpoint;
begin
  pt:=client2screenEx(btnReconnect);
  menuGetBack.Popup(pt.X ,pt.Y);
end;//btnReconnect为Tspeedbutton，效果很好//TfcShapeBtn 
function TFormMain.client2screen(btn:TfcShapeBtn):Tpoint;
var
  p:tpoint;
begin
  p.X:=0;
  p.Y:=0;
  p.X:=btn.Left + btn.Width;
  p.Y :=btn.Top;
  p:=panel2.ClientToScreen(p);
  result:=p;
end;
//引用
  pt:=client2screen(btnTransfer);//btnTransfer为TfcShapeBtn
  MenuTransfer.Popup(pt.X ,pt.Y);//结果，菜单popup的位置不对

Answer 1

TfcShapeBtn有ClientToScreen方法
pt:=fcShapeBtn1.ClientToScreen(pt);
pt.x:=pt.x + fcShapeBtn1.width;
MenuTransfer.Popup(pt.X   ,pt.Y);
这样就解决了