《幸运智多星》节目控制软件的设计与实现

abled:=True;//使TTimer控件开始工作
end;

procedure Main_Form.Timer1Timer(Sender: TObject);
begin

Gform.Canvas.CopyRect(Rect(0,0,1024,768), Main_Form.Canvas,Rect(1,0,528,396));//将控制界面的相应内容（控制界面的一部分）拷贝至Gform窗口
Timer1.Enabled:=False;// 使TTimer控件停止工作
end;

《《幸运智多星》节目控制软件的设计与实现(第3页)》