如题!
解决方案 »
- Delphi for iOS开发指南
- 如何发消息关机或重启?
- 如何提高ini文件的写入速度啊
- DCOM访问的问题,有开发经验或配置DCOM的人进,奇怪啊! 200501
- 托盘程序退出后,为什么图标不消失呢?
- Delphi 5升级求助
- 这段程序怎么不对了 我改不了 很急
- 各位用什么控件作图片按钮
- 用OBJECT PASCAL实现VECTOR,谁有比较好的代码?
- ACCESS 的密码在DELPHI中能解不??
- 关于 dbGridEH3 控件 的列的 Footer 设置 的问题 (图) ????????????????急!!!!!!!!!!
- fast report 2.5 做的报表怎么才能让fast report 2.46使用
界面也设计好了,
要把两者结合起来啊,
重绘窗口:onpaint事件中写,
但不知道怎么写?行不行?
var
bit:tbitmap;
s:tfilestream;
w,h,x,y:integer;
begin
try
s:=tfilestream.Create(name+'.bmp',fmOpenRead,0);
bit:=tbitmap.Create;
bit.LoadFromStream(s);
w:=bit.Width;
h:=bit.Height;
x:=0;
y:=0;
while y<h do
begin
x:=0;
while x<w do
begin
form1.Canvas.Draw(x,y,bit);
inc(x,w);
end;
inc(y,h);
end;
finally
s.Free;
bit.Free;
end;
end;//在form.onpaint直接调用这个函数就可以了