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

领测软件测试网 关键字：MDI在你的主窗体对象中加入了下面的变量: 
FClientInstance : TFarProc; 
FPrevClientProc : TFarProc; 


{ MDI的背景代码 } 
procedure TMainForm.ClientWndProc(var Message: TMessage); 
var 
Dc : hDC; 
Row : Integer; 
Col : Integer; 
begin 
with Message do 
case Msg of 
WM_ERASEBKGND: 
begin 
Dc := TWMEraseBkGnd(Message).Dc; 
// 在DC上平铺图象 

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

TAG: 窗口 图象 MDI