还有一个问题再次请教: 下面这个语句是可以执行的,其中form1是一个窗体的naem属性: procedure Tsbprint.BitBtn1Click(Sender: TObject); var form:Tform1; begin form:=form1; form.quickrep1.preview; end; 我现在需要将form1改为from2或者form3,不用手动修改,想用变量进行替换,不知道应该怎么做,本人实在不懂,再请各位高手帮助!
uu怎么声明你都不知道?你自己的变量吧?后一个问题: procedure ReportPreview( Form: TForm ); var QuickRep1: TComponent; begin QuickRep1 := Form.FindComponent('QuickRep1'); // 用名字查找控件 if Assigned(QuickRep1) and (QuickRep1 is TQuickRep) then // 如果存在且为该类型 TQuickRep(QuickRep1).Preview; // 调用 end;
下面这个语句是可以执行的,其中form1是一个窗体的naem属性:
procedure Tsbprint.BitBtn1Click(Sender: TObject);
var
form:Tform1;
begin
form:=form1;
form.quickrep1.preview;
end;
我现在需要将form1改为from2或者form3,不用手动修改,想用变量进行替换,不知道应该怎么做,本人实在不懂,再请各位高手帮助!
procedure ReportPreview( Form: TForm );
var
QuickRep1: TComponent;
begin
QuickRep1 := Form.FindComponent('QuickRep1'); // 用名字查找控件
if Assigned(QuickRep1) and (QuickRep1 is TQuickRep) then // 如果存在且为该类型
TQuickRep(QuickRep1).Preview; // 调用
end;