delphi image 控件

[qq13927096478]

delphi image2控件 如何不被其他新生的image3.4 挡在后面。要代码的。将image2永远设置在最前端、

[sololie]

procedure TForm1.FormCreate(Sender: TObject);
var
  img1, img2, img3: TImage;
begin
  img1 := TImage.Create(Self);
  with img1 do
  begin
    Name := 'img1';
    Parent := Self;
    Width := 120;
    Height := 140;
    Left := 10;
    Top := 10;
    Picture.Bitmap.LoadFromFile('c:\1.bmp'); // 自己找张图片
    Picture.Bitmap.Canvas.TextOut(50,80,Name);
  end;

  img2 := TImage.Create(Self);
  with img2 do
  begin
    Name := 'img2';
    Parent := Self;
    Width := 120;
    Height := 140;
    Left := 80;
    Top := 20;
    Picture.Bitmap.LoadFromFile('c:\1.bmp'); // 自己找张图片
    Picture.Bitmap.Canvas.TextOut(50,80,Name);
  end;

  img3 := TImage.Create(Self);
  with img3 do
  begin
    Name := 'img3';
    Parent := Self;
    Width := 120;
    Height := 140;
    Left := 160;
    Top := 40;
    Picture.Bitmap.LoadFromFile('c:\1.bmp'); // 自己找张图片
    Picture.Bitmap.Canvas.TextOut(50,80,Name);
  end;

  // img2 在最前端
  SetChildOrder(img2,2);
end;

[qq13927096478]

@sololie @lyhoo163 那如何实现，窗体已经存在三件图片，然后按下按钮，将被覆盖的第二张图片 限制在最前面？

[举手无悔大丈夫]

Image2.BringToFront;

[lyhoo163]

SetChildOrder()更改控件的ComponentIndex。参数1：控件名，参数：排序号：从内向外，0..n， N是最外层。

[yct0605]

右键单击image2控件，选择Control->Bring to Front