潘
潘安
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.SpeedButton1Click(Sender: TObject);
VAR
EDIT1:TEDIT;
IMG1:TIMAGE;
begin
EDIT1:=TEDIT.CREATE(SELF);
IMG1:=TIMAGE.CREATE(SELF);
IMG1.Align:=ALCLIENT;
IMG1.Picture.LoadFromFile('F:/相片/风光/21.GIF');
LV_VCL.Add(EDIT1);
LV_VCL.Add(IMG1);
end;
当程序运行时,提示“TEDIT”没有定义,我上面不是定义了吗
VAR
EDIT1:TEDIT;
IMG1:TIMAGE;
begin
EDIT1:=TEDIT.CREATE(SELF);
IMG1:=TIMAGE.CREATE(SELF);
IMG1.Align:=ALCLIENT;
IMG1.Picture.LoadFromFile('F:/相片/风光/21.GIF');
LV_VCL.Add(EDIT1);
LV_VCL.Add(IMG1);
end;
当程序运行时,提示“TEDIT”没有定义,我上面不是定义了吗