نوشته شده توسط
khoshblagh
با سلام خدمت دوستان
من این کد را با توجه به فرمایشات فوق نوشتم
procedure Memo34OnBeforePrint(Sender: TfrxComponent);
var
var1:typevar;
Memo34:TfrxmemoView;
begin
if var1='1' then begin
Memo34:=frxChapFish.FindObject('Memo34') as TfrxmemoView;
Memo34.Visible:=False;
end;
else begin
Memo34:=frxChapFish.FindObject('Memo34') as TfrxmemoView;
Memo34.Visible:=True;
end;
end;
ولی این خطا را دریافت نمودم.
دوست عزیز کدی که من براتون نوشتم نمونه است شما بایستی یکسری تغییرات میدادید کد رو براتون می نویسم
procedure TForm1.Button1Click(Sender: TObject);
var
var1:string;
Memo1:TfrxmemoView;
begin
var1:=edit1.text;
if var1='1' then begin
Memo1:=frxReport1.FindObject('Memo1') as TfrxmemoView;
Memo1.Visible:=False;
frxReport1.ShowReport(true);
end
else begin
Memo1:=frxReport1.FindObject('Memo1') as TfrxmemoView;
Memo1.Visible:=True;
frxReport1.ShowReport(true);
end;
end;
موفق باشید