要实现这样一个功能:点击一个按钮后调用出一幅图画,然后在这幅图上绘制几条曲线。这些代码写在 procedure a;中,在OnPaint中调用了过程a。
   问题:在窗口发生重绘的时候没有实现上述功能,请大家帮助啊!多谢多谢...

解决方案 »

  1.   

    以前用vc的?
    delphi一般不需要在OnPaint里面这样做
    Canvas对象会自动刷新你对它上面的画图操作
      

  2.   

    楼上的我不太很明白你的说法。不是把要绘制图形的代码写在下面的过程中,
    procedure TForm1.FormPaint(Sender: TObject);
    begin
       // 代码procedure TForm1.FormPaint(Sender: TObject);
    end;
    才能在form变化时仍然使图形存在吗?
    遇到的问题是:那幅图画仍然存在,可曲线没了,这是为什么?(先调出图,然后在其上面画曲线,是两个过程)谢谢大家的帮助!
      

  3.   

    是画在窗体上的。代码很乱。是这样的:
    procedure a;  //绘制“背景图”       
    procedure b;  //在“背景图”上绘制曲线
    procedure   TForm1.a; 
    begin 
       form1.b;
    end; 
    procedure   TForm1.FormPaint(Sender:   TObject); 
    begin 
       form1.a;
    end;
    初始显示窗口为最大化,当窗口变成最小化再变成最大化时,背景图仍存在,而曲线没了!