******有问组件的图片的一些问题,高手们看一下啰****(50分)

var
image:Timage;
begin
image := TImage.Create(self);
image.Parent := self;
image.Picture.LoadFromFile('Oil.jpg');
image.top:=0;
image.left:=0;
image.width:=100;
image.height:=100;
image.Hint := 'XXXXXX';
image.OnClick := OilClick;
end;
在组件中动态生成图片,但图片的Hint和onclick好象没有用;请问为什么?
谢谢

procedure TForm1.Button2Click(Sender: TObject);
var
image:Timage;
begin
image := TImage.Create(self);
image.Parent := self;
image.Picture.LoadFromFile('D:/Pic/ZT.jpg');
image.top:=0;
image.left:=0;
image.width:=100;
image.height:=100;
image.Hint := 'XXXXXX';
image.OnClick := OleClick;
image.ShowHint:=True;
end;

procedure TForm1.OleClick(sender: TObject);
begin
ShowMessage('OK');
end;
测试没有问题。

没有用,谢谢

你的image是在哪里创建的？ 如果是在窗体中， 应该不会有问题， 你可以把create中的参数改为application。 或者使用其他可以响应消息的。

在窗体里,但是是在COM+的窗体了,不能用application创建的