请大家帮我看看这段程序错在哪？

Question

我有下面着段程序，我单步执行到第二行就报错“Abstract Error”,请问我错在哪呢？？？
procedure TForm1.Button1Click(Sender: TObject);
var TempGraphic:TGraphic;
begin
    TempGraphic:=TGraphic.Create;
    TempGraphic.LoadFromFile('testimg.jpg');
     ........
end;

Answer 1

是不是没有指定JPG文件的路径啊。

Answer 2

提示表明是使用的是抽象类，也就是TGraphic是的抽象类。
你要先继承他，他重新定义他的抽象过程。例如
procedure SetHeight(Value: Integer); virtual; abstract;你要继承TGraphic类，在自己的类中为SetHeight写如代码.

Answer 3

不太明白jacky_shen(jacky）的意思啊

Answer 4

听了jacky_shen(jacky）的话，我将程序修改如下：
procedure TForm1.Button1Click(Sender: TObject);
var Temppic:Tpicture;
begin
    //form2.show;
    TempPic:=Tpicture.Create;
    Temppic.LoadFromFile('20030326.bmp');
    with self.canvas do
    begin
       Draw(0,0,Temppic.Graphic);
    end;end;果然图象能够正确显示，不过出现了新的问题，我发现当舱口大小发生改变时，显示在舱口上的图片就不见了，这是怎么回事，怎样才能让图片正确显示呢？

Answer 5

你要考虑刷新问题，在onpaint中重画