我想要做的是运行一个if语句,检查表单中的任何TImage对象是否具有等于Tedit1.text的.top属性。然后我想将与变量匹配的TImage的.image属性更改为/ Images / ButtonStand / jpeg
答案 0 :(得分:3)
您可以循环浏览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;