如何确定在控件的位置！！

Question

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  setlength(mybit,20);
  if (ok=true) and (Button=mbLeft) then begin
    mypanel:=tpanel.Create(self);
    mypanel.Parent:=treeview1;
    mypanel.Width:=50;
    mypanel.Height:=50;
    mypanel.Left:=y-11;
    mypanel.top:= x-10;
    mypanel.OnMouseDown:=mymousedown;
    mypanel.OnMouseMove:=mymousemove;
    mypanel.OnMouseUp:=mymouseup;
    mybit[count]:=TBitBtn.Create(self);
     mybit[count].Parent:=mypanel;
     mybit[count].Top:=y-11;  { 加多这句和下句为什么无法在mypanel上显示mybit
     mybit[count].Left:=x-10; [count]}如何能够正确地调整mybit[]count]在
    mybit[count].Width:=41;    mypanel上的位置。多谢拉！！
     mybit[count].Height:=41;
end；

Answer 1

下面的代码有问题。
    mybit[count]:=TBitBtn.Create(self);
     mybit[count].Parent:=mypanel;
     mybit[count].Top:=y-11;  { 加多这句和下句为什么无法在mypanel上显示mybit
     mybit[count].Left:=x-10; [count]}如何能够正确地调整mybit[]count]在
    mybit[count].Width:=41;    mypanel上的位置。多谢拉！！
     mybit[count].Height:=41;
========================================
   for i := low(MyBit) to high(MyBiit) do
   begin
       //DoSomething.
   end;

Answer 2

不明白什么意思！！
我的目的是想在mypanel上创建一个Tbitbtn控件，
现在需要调整Tbitbtn相对mypanel的位置。多谢拉！！

Answer 3

SetBounds函数,例如img1.SetBounds(798, 711, 40, 40);

Answer 4

mybit[count].Top:=1;  { 加多这句和下句为什么无法在mypanel上显示mybit
     mybit[count].Left:=1; [count]}如何能够正确地调整mybit[]count]在

Answer 5

to zjybestzjybest:
如何给你加分噢？