如何检查所有形式的TImage

Question

我想要做的是运行一个if语句，该语句检查表单中的任何TImage对象是否有一个.top属性等于that 1.text。然后，我想将匹配变量的.image属性更改为/ TImage /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;