不行的,既然MyImage没有上面特别的,就可以调用form上的方法来建立,也就是说TImage需要建立在Form,MyImage是Form的一个成员
有个概念,如果你在Form上放一个按钮,这个按钮的Click事件就是建立一个
TImage,你可以这样
with TImage.Create(nil)do
begin
parent := Form1;// 很重要
width := xx;
height := xx;
left := xx;
top := xx;
show;
end;
或者按你说的
MyImage = TImage.Create(nil);
with MyImagedo
begin
/// 和上面相同
end;
这个时候Create后面的参数关系不是很大,
你的方法可以这样,你看看行不行
TForm1 = class(TForm)
……
private
MyImage : TImage;
……
public
……
procedure CreateImage(ALeft, ATop, AWidth, AHeight);
end;
procedure CreateImage(ALeft, ATop, AWidth, AHeight);
begin
MyImage := TImage.Create(nil);
// 后面都一样
end;
……
在线程里面就用
Sysxxxxxxxx(Form1.CreateImage(xx,xx,xx,xx))(单词记不住了)
看看行不行