没有Canvas的控件如何绘图
来自:jiangtao 时间:98-11-15 2:55:34 ID:92045 |
实际上可以在任何TWinControl上画图,关键是获得所谓 HDC 设备环境。
具体如下,aWinControl是你想图的控件,如上面的TMemo:
aCanvas:TCanvas;
aCanvas:=TCanvas.Create;
aCanvas.Handle:=GetDC(aWinControl.Handle);
->HDC ->HWND
然后可以使用任何TCanvas的函数了。
注意不需要或者在程序结束时要Free掉这个Canvas:
aCanvas.Free;