W wangxian111 Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-31 #1 用Canvas可以在form上画图,如何在TabSheet1上用Canvas来画图!!! 这问题很急,请快告诉我,我会很感谢的!!!
I iamcaca Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-31 #2 在TabSheet1上再放一个TImage的控件不就可以了?
Z zyg_zm Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-31 #3 对,也许只有这个办法,Tabsheet是由TControl派生到TWinControl再派生下来的,并没有提供画布属性
M menxin Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-31 #4 wincontrol都支持canvas var c:TCanvas; G:HDC; begin c:=TCanvas.Create; c.Handle:=GetDC(TabSheet1.Handle); c.LineTo(100,100); c.Free; end;
wincontrol都支持canvas var c:TCanvas; G:HDC; begin c:=TCanvas.Create; c.Handle:=GetDC(TabSheet1.Handle); c.LineTo(100,100); c.Free; end;
S smilelove Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-31 #5 利用友元可以取得 var NewT :TWInControl; procedure TForm1.BitBtn1Click(Sender: TObject); begin NewT :=TWInControl(TabControl1); with TabControl1.Canvas do begin Pen.Color :=clRed; moveto(0,0); lineto(50,50); end; end;
利用友元可以取得 var NewT :TWInControl; procedure TForm1.BitBtn1Click(Sender: TObject); begin NewT :=TWInControl(TabControl1); with TabControl1.Canvas do begin Pen.Color :=clRed; moveto(0,0); lineto(50,50); end; end;
W wangxian111 Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-04 #7 谢谢menxin,这个问题我已经解决了。 能告诉我怎样把画好的图永久的保留在Tabsheet上呢??!!
W wangxian111 Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-05 #9 写到Paint事件里还是不可以的,倒是写在Enter事件里还可以。 不过怎样做到在刚进入Form时Tabsheet上就已经画好了呢??
M menxin Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-06 #10 在ENTER里?不行,你放一个窗口在他上面,再移去就没了 正常是应该写在PAINT里的,虽然效率不太高,也还过得去,不知道你说不可以是什么意思
W wangxian111 Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-07 #11 我的意思是写在Paint事件里时,从Tabsheet1到Tabsheet2后,如果再到Tabsheet1时, 画的内容就会消失掉的!!
Z zyg_zm Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-07 #12 这个问题别在讨论下去啦,结束吧,在讨论也没有什么好的结果。总之最好还是在上面放一个IMAGE, 写ONPAINT事件其实很麻烦,要不干脆作一个将TABLESHEET和IMAGE合成的控件
S sytzlh Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-07 #13 同意楼上的!! 这个我也试过很多遍!! 还是再timage.create 好些!! 可以剩掉很多麻烦!!
W wzs Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-08 #14 1: self.TabSheet1.Brush.Bitmap :=image1.picture.bitmap; 2: