在一张图片的指定坐标上显示另外一张小的图片??? ( 积分: 100 )

D

diqingyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-29

• #1

程序如下:
Var
Image1 : TImage1;
procedure TForm3.Button2Click(Sender: TObject);
begin
IF Assigned(Image1) then
Image1:=TImage.Create(NIL)
Image1.Parent :=Self;
Image1.BringToFront;
Image1.Top := Image1.Top + 10;
Image1.Left := Image1.Left + 10;
Image1.Picture.LoadFromFile('D:/wpfire.bmp');
Image1.AutoSize := True;
end;

可是编译时出现如下错误,
[Error] Unit3.pas(38): Missing operator or semicolon
[Fatal Error] Project2.dpr(12): Could not compile used unit 'Unit3.pas'
????

 

D

diqingyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-29

• #2

程序如下:
Var
Image1 : TImage1;
procedure TForm3.Button2Click(Sender: TObject);
begin
IF Assigned(Image1) then
Image1:=TImage.Create(NIL)
Image1.Parent :=Self;
Image1.BringToFront;
Image1.Top := Image1.Top + 10;
Image1.Left := Image1.Left + 10;
Image1.Picture.LoadFromFile('D:/wpfire.bmp');
Image1.AutoSize := True;
end;

可是编译时出现如下错误,
[Error] Unit3.pas(38): Missing operator or semicolon
[Fatal Error] Project2.dpr(12): Could not compile used unit 'Unit3.pas'
????

 

W

wanghaiou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-29

• #3

你这明明是一张图片亚？？

 

D

diqingyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-29

• #4

是啊
我是想在FORM中加上一张图片,然后在图片上放上 button, 当点击BUTTON或者鼠标移动到那的时候就出现另外的一张图片吗?

 

W

wanghaiou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-29

• #5

Image1.Top := Image1.Top + 10;
Image1.Left := Image1.Left + 10;
是什么意思？

 

W

wanghaiou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-29

• #6

IF Assigned(Image1) then
Image1:=TImage.Create(NIL);
在 Create(NIL)后面少放一个 ;

 

W

wanghaiou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-29

• #7

procedure TForm1.BitBtn1Click(Sender: TObject);
Var
Image1 : TImage;
begin
IF Assigned(Image1) then
Image1:=TImage.Create(NIL);
Image1.Parent :=Self;
Image1.BringToFront;
Image1.Top := Image1.Top + 10;
Image1.Left := Image1.Left + 10;
Image1.Picture.LoadFromFile('D:/wpfire.bmp');
Image1.AutoSize := True;
end;

 

D

diqingyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-29

• #8

恩,好的,我试试

 

D

diqingyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-29

• #9

接受答案了.

 

D

diqingyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-29

• #10

就是差了一个分号,可是我的图片的位置我要显示在BUTTON的附近怎么做?

 

W

wanghaiou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-29

• #11

procedure TForm1.BitBtn1Click(Sender: TObject);
Var
Image1 : TImage;
begin
IF Assigned(Image1) then
Image1:=TImage.Create(NIL);
Image1.Parent :=Self;
Image1.BringToFront;
Image1.Top := button1.top+button1.height;
Image1.Left := button1.left+button1.width;
Image1.Picture.LoadFromFile('D:/wpfire.bmp');
Image1.AutoSize := True;
end;

 

D

diqingyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-29

• #12

知道了,改一下TOP和
LEFT 后面的参数就可以了的.