我想修改窗体名为 newwindow中的imgae5的高度,我这样写为什么是错的呢?请帮忙改一改.

Question

我想修改窗体名为 newwindow中的imgae5的高度,我这样写为什么是错的呢?
var
i:integer;
begin
i:=5;
newwindow.Timage(FindComponent('image'+inttostr(i))).height:=400;
end;
系统提示Timage没有定义.为什么呢?如何写才正确呢?

Answer 1

var
i:integer;
begin
  i:=5;
  newwindow.Timage(FindComponent('image'+inttostr(i))).height:=400;
end;
在这段代码所在的窗体放个image控件，编译后再删掉这个image控件。

Answer 2

var
  i:integer;
  obj: TComponent;
begin
  i:=5;
  obj := newwindow.FindComponent('image'+inttostr(i)); 
  if obj <> nil then
    obj.height := 400;
end;

Answer 3

uses ExtCtrls; 
:
:
var
  i:integer;
  obj: TComponent;
begin
  i:=5;
  obj := newwindow.FindComponent('image'+inttostr(i)); 
  if obj <> nil then
    Timage(obj).height := 400;
end;