如何检查表格中的所有TImage

Question

我想要做的是运行一个if语句，检查表单中的任何TImage对象是否具有等于Tedit1.text的.top属性。然后我想将与变量匹配的TImage的.image属性更改为/ Images / ButtonStand / jpeg

Answer 1

您可以循环浏览Form.Components以找到它。 （你没有指定你为.Top获取变量的位置，所以我刚从TEdit检索它。你也没有指定新图像的来源，所以我已经假设它已经加载到某个地方TBitmap。）

procedure TForm1.ChangeImageButtonClick(Sender: TObject);
var
  i: Integer;
  TopValue: Integer;
  NewBmp: TBitmap;
begin
  // Get top value to locate from Edit1
  TopValue := StrToIntDef(Edit1.Text, -1);  
  if TopValue = -1 then  // User entered invalid value. Nothing to do; bail out.
    Exit;

  for i := 0 to ComponentCount - 1 do
  begin
    if Components[i] is TImage then
    begin
      if TImage(Components[i]).Top = TopValue then
      begin
        NewBmp := TBitmap.Create;
        NewBmp.LoadFromFile('Images' + IntToStr(i) + '.bmp');
        try
          TImage(Components[i]).Picture.Graphic.Assign(NewBmp);
        finally
          NewBmp.Free;
        end;
      end;
    end;
  end;
end;