5,391
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
ePing 2001-02-03
- 打赏
- 举报
uses ExtCtrls;
procedure TForm1.Button1Click(Sender: TObject);
var
Temp: TImage;
begin
Temp := TImage.Create(Self);
Temp.Parent := Form1;
...............
...............others
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Temp: TImage;
begin
Temp := TImage.Create(Self);
Temp.Parent := Form1;
...............
...............others
end;
DelMan 2001-02-03
- 打赏
- 举报
var MImage:TImage;
[
MImage:=TImage.create;{我忘了后面还有没有参数了}
MImage.parant:=form1;
]
[
MImage:=TImage.create;{我忘了后面还有没有参数了}
MImage.parant:=form1;
]
