为什么给Panel设置图形背景后,只要一变动窗口的最小和最大化后就背景就没有了,请问怎么解决这么问题,我是这么设置背景的
var mycanvas:tcanvas;
bit:TBitmap;
begin
mycanvas:=TCanvas.Create;
mycanvas.Handle:=getdc( Panel1.Handle);
bit:=TBitmap.Create; //这几步你可以随便了,这里放了一个图
bit.LoadFromFile('f:\D1.bmp');
mycanvas.StretchDraw(rect(0,0,Panel1.Width,Panel1.Height),bit);
mycanvas.Free;
var mycanvas:tcanvas;
bit:TBitmap;
begin
mycanvas:=TCanvas.Create;
mycanvas.Handle:=getdc( Panel1.Handle);
bit:=TBitmap.Create; //这几步你可以随便了,这里放了一个图
bit.LoadFromFile('f:\D1.bmp');
mycanvas.StretchDraw(rect(0,0,Panel1.Width,Panel1.Height),bit);
mycanvas.Free;
解决方案 »
- 异常处理....
- excel 导入 dbgrid 奇怪问题
- 用过ReadDirectoryChangesW 的请进
- 分不要了,只想跪求一个答案!如果在没有答案我就变态了!!!!!!
- delphi6的ado怎么只能支持4位小数点?
- 怎样实现exe文件和swf文件转换,即exe<->swf
- 关于delphi 与sql server 数据库
- 如何用dephi制作的程序编译出简单的exe程序
- 怎么样在不同的表中数据值相加?急!急!急!急!急!急!急!急!
- 怎样截获键盘按键
- 怎么用 dxDBGraphicEdit 保存图片到 sql server 和从sql server 中读取出图片?
- 有没有显示目录树的控件?
bit:TBitmap;
begin
mycanvas:=TCanvas.Create;
mycanvas.Handle:=getdc( Panel1.Handle);
bit:=TBitmap.Create; //这几步你可以随便了,这里放了一个图
bit.LoadFromFile('f:\D1.bmp');
mycanvas.StretchDraw(rect(0,0,Panel1.Width,Panel1.Height),bit);
mycanvas.Free;
这个代码是在没有画布的控件上画图的代码,当窗口发生变化后,如果你的代码是写在某个按钮中的,自然就没有了,写在form的onPoint中,就可以了。