使MDI窗口有一个背景图象或使它平铺

领测软件测试网

for Row := 0 to ClientHeight div Image1.Picture.Height do 
for Col := 0 to ClientWidth div Image1.Picture.Width do 
BitBlt(Dc, 
Col * Image1.Picture.Width, 
Row * Image1.Picture.Height, 
Image1.Picture.Width, 
Image1.Picture.Height, 
Image1.Picture.Bitmap.Canvas.Handle, 0,0,SRCCOPY); 
Result := 1; 
end; 
else // 传递其他消息
Result := CallWindowProc(FPrevClientProc, ClientHandle, Msg, wParam, lParam); 
end; 
end; 


- 在你的主窗体的OnShow事件中加入以下代码: 

文章来源于领测软件测试网 https://www.ltesting.net/