FastReport 如何动态创建Barcode控件，并对条形码的属性进行设置

[fang_ding]

在FastReport中，是双击frxReport控件，再用里面的barcode控件来进行条形码的设置，这样可以说是静态的生成条形码并可以对条码的是属性进行设置。
但现在需要动态的创建Barcode控件，并对条形码可以进行动态设置。如：在一个窗口中的edit中分别设置条形码的类型，条形码的值，条形码的长与宽等一些属性，点击打印即可以得到所设置属性的条形码。

这里我之前写的动态创建barcode的部分代码是：
var
ShowBarcode:TfrBarcodeView;
begin
ShowBarcode:=TfrBarcodeView.Create ;
.
.
end;
但是运行提示的错误时undeclared identifier:'TfrBarcodeView'。

[kye_jufei]

var
  ShowBarcode:TfrxBarCodeObject;
 

[fang_ding]

等待。。。。

[fang_ding]

但是运行提示的错误时undeclared identifier:'TfrBarcodeView'。这个问题解决了，原因是写错了，少了个字母，正确的是TfrxBarcodeView。
这里还有个问题是如何动态创建多个Barcode，并且可以对barcode的条码类型BarType用代码进行设置，而不是点击Barcode进入后进行设置。

[lw19860412]

你真牛逼，

[last_wolf1860]

1.动态创建条形码，需要在FastReport中写脚本，我写的脚本附在后面。
2.需要定义条形码点击事件，以便用户点出设置条形码的属性
3.定义进行条形码设置的对话窗，把需要设置的属性定义在对话窗中。

具体步骤：FastReport中右击Page1(页面1)->New Dialog，在其中加入需要设置属性的编辑框，工具栏里基本都有。将DialogPage1的Visible属性设置为False,否则预览即显示对话。
在Page1的OnBeforePrint事件中，添加代码－>动态创建BarCode

procedure Page1OnBeforePrint(Sender: TfrxComponent);
var barCode:TFrxBarCodeView;
begin
tt:=false;
barCode:= TFrxBarCodeView.Create(Page1);
barCode.width:=200;
BarCode.Height:=60;
BarCode.Parent:=Page1;
barCOde.Left:=18;
BarCode.Top:=12;
barCode.OnPreviewCLick:= 'BarCodeClick';
end;

procedure BarCodeClick(Sender: TfrxView; Button: TMouseButton;
Shift: Integer; var Modified: Boolean);
begin
DialogPage1.ShowModal;
with dialogpage1 do
begin
if ModalResult = mrOK then
begin
//showmessage(edit1.Text+#13+edit2.Text+#13+Edit3.Text);
//此处加入条形码属性修改代码
end;
end;
end;

[last_wolf1860]

忘了说明了，我用的FastReport版本是4.10，DelphiXE测试通过

[spooy]

'TfrBarcodeView' 这个窗体的单元包含进来了没有?

[last_wolf1860]

变量传递，在FastReport中创建自义变量test，在OnGetValue中赋值
if varName = 'test' then
Value = ...
我个人做法，喜欢用一个Variant类型的数组（不需要考虑数据类型），使用VarArrayCreate后，赋值，打印前传入FastReport.
再根据规则，设置动态打印的BarCode属性，这么说能听懂吗？

[fang_ding]

我接触delphi不久，不太懂，能像上面一样写些代码及一些说明吗？谢谢！

[last_wolf1860]

楼主要打的条码是一种样式打所有的，还是一个条码一种样式？

[last_wolf1860]

等我把ArcEngine10装完了，我写个Demo你去下载罢。（要下载分哦：）

[fang_ding]

没问题

[fang_ding]

条码的各种属性都可以通过对话框进行设置，也包括条码样式

[last_wolf1860]

你还没讲是一种样式打印所有的条码还是一个条码一种样式？

[fang_ding]

一种样式打印所以的

[last_wolf1860]

下载链接：http://download.csdn.net/source/3091723

[fang_ding]

last_wolf1860
你的方法是条码的属性是从FastReport的Page1中建立的Dialog的edit中设置的，
那如何让条码的属性的属性是通过主窗体Form中的edit中获取呢？

[fang_ding]

结贴 散分！~