我想让panel1固定显示在panel2的右下角,panel1的大小固定,例如16*16
panel2的Alien是alclient,当窗体大小发生改变的时候,希望panel1依然在panel2的右下角,这个怎么设置呢

解决方案 »

  1.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      self.Panel1.Parent := self.Panel2;
      self.Panel1.Top := self.Panel2.Height - self.Panel1.Height;
      self.Panel1.Left := self.Panel2.Width - self.Panel1.Width;
    end;
      

  2.   

    你用这个属性去设置
    BevelEdges就可以了 
    这个属性就在属性框里
      

  3.   


    procedure TForm1.Panel2Resize(Sender: TObject);
    begin
      Panel1.Top:=Panel2.Height-Panel1.Height;
      Panel1.Left:=Panel2.Width-Panel1.Width;
    end;