怎样在 MDI 窗体客户区上写字呢？ ( 积分: 100 )

怎样在 MDI 窗体客户区上写字呢？不用控件

怎样在 MDI 窗体客户区上写字呢？不用控件

写字和画画都差不多吧，能显示出背景不就和写字差不多了吗？？？

不用控件直接在客户区上写字，这样的话就要写在OnPaint事件里面，否则是不会自动刷新的。

用textout

//简单点可以这样<br>procedure TForm1.FormPaint(Sender: TObject);<br>begin<br> &nbsp;TextOut(Self.Canvas.Handle, 100, 100, '我是猪猪', 8);<br>end;<br>//麻烦点可以这样<br>procedure TForm1.FormPaint(Sender: TObject);<br>var<br> &nbsp;Fnt: TFont;<br>begin<br> &nbsp;Fnt := TFont.Create;<br> &nbsp;Fnt.Assign(Self.Canvas.Font);<br> &nbsp;with Self.Canvas.Font do<br> &nbsp;begin<br> &nbsp; &nbsp;Name := '隶书';<br> &nbsp; &nbsp;Color := clGreen;<br> &nbsp; &nbsp;Charset := GB2312_CHARSET;<br> &nbsp; &nbsp;Size := 56;<br> &nbsp;end;<br> &nbsp;TextOut(Self.Canvas.Handle, 100, 100, '我是猪猪', 8);<br> &nbsp;Self.Canvas.Font.Assign(Fnt);<br> &nbsp;Fnt.Free;<br>end;

楼上正解！