I ISY Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-18 #1 canvas绘的图在最小化或其他窗口拖过时会消失,有什么办法可以让它自动重绘? 用update?
J jsxjd Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-18 #2 放在Form 的 OnPaint 事件中画!!!!!!
J jsxjd Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-19 #4 不会阿,你试试下面的拖消息框, 你是不是画线,没定起点。 注意连接 Onpaint procedure TForm1.FormPaint(Sender: TObject); begin canvas.moveTo (0,0); canvas.LineTo (100,100); end; procedure TForm1.Button1Click(Sender: TObject); begin showmessage('aaaa'); end;
不会阿,你试试下面的拖消息框, 你是不是画线,没定起点。 注意连接 Onpaint procedure TForm1.FormPaint(Sender: TObject); begin canvas.moveTo (0,0); canvas.LineTo (100,100); end; procedure TForm1.Button1Click(Sender: TObject); begin showmessage('aaaa'); end;
E echolan Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-20 #7 将画图定义在PaintBox的OnPaint事件中,以后只要调用PaintBox.Repaint事件就可以了!
I ISY Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-20 #8 onpaint中定义的不会被刷掉,以后绘的会被刷掉; image无论何时都不会被刷。 不知道还有没有其他。
T truecat Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-21 #9 建议画在image中,因为image会自动重绘的。 否则的话就需要添加onpaint事件喽。