X xiaoxiami0 Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-17 #1 能否实现在窗体上画线，再次打开是这几条线还在？
X xf-wangyi Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-17 #2 应该是可以实现的，我想的是你把线的信息保存到文件中去 程序打开时自动读文件
A aizb Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-17 #3 是可以的,你Form中设一个TBitmap成员变量tmpBitmap, 在画的时候把tmpBitmap设成Form一样大,并在tmpBitmap中画图,画完后Refresh窗体; 同时在Form的Onpaint事件中把tmpBitmap画到Form上的0,0位置!
是可以的,你Form中设一个TBitmap成员变量tmpBitmap, 在画的时候把tmpBitmap设成Form一样大,并在tmpBitmap中画图,画完后Refresh窗体; 同时在Form的Onpaint事件中把tmpBitmap画到Form上的0,0位置!
K kkyy Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-17 #4 最好在Form上放一个Image1,在Image1上画。
X xiaoxiami0 Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-17 #5 菜鸟愚笨，还请大侠们多讲几句！有代码就更好了。
S smj_9547 Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-18 #6 直接在CANVAS中画呀!同时将信息保存到文件中,添加ONPAINT函数,将所有信息重画
S Sachow Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-19 #12 procedure TForm1.FormPaint(Sender: TObject); begin with Canvas do begin MoveTo(10,10); LineTo(100, 10); MoveTo(10,20); LineTo(100,20); MoveTo(10,30); LineTo(100,30); end; end; 用一个文件保存线的长短、位置等属性。这文件是用INI或自定义格式，你自己考虑。
procedure TForm1.FormPaint(Sender: TObject); begin with Canvas do begin MoveTo(10,10); LineTo(100, 10); MoveTo(10,20); LineTo(100,20); MoveTo(10,30); LineTo(100,30); end; end; 用一个文件保存线的长短、位置等属性。这文件是用INI或自定义格式，你自己考虑。
