Turbo Power systools在Delphi中的stExport事件

时间:2009-04-15 21:22:13

标签: delphi events delphi-7 turbopower

我正在使用来自systools包的turbopower的stExport。用它来导出数据集。这很好用。该类使FOnExportProgress可用。这个类没有可视组件,所以没有对象检查器只需双击并让delphi为我创建事件。任何人都可以提供一个如何手动创建事件的简单示例吗?

对于大多数可视组件,delphi为您提供此功能。例如:

procedure TForm1.Button1Click(Sender: TObject);
begin
 //code here
end;

如何手动创建此内容。

我在下面列出了一个引用该事件的类。

type
  TStExportProgressEvent = procedure (Sender : TObject; Index : Integer;
    var Abort : Boolean) of object;

FOnExportProgress : TStExportProgressEvent;
    FOnQuoteField : TStOnQuoteFieldEvent;

if Assigned(FOnExportProgress) then
        FOnExportProgress(self, Count, Abort);

如何手动分配OnExportProgress。

请举一个简单的例子!

谢谢。

1 个答案:

答案 0 :(得分:1)

假设这一切都发生在您的表单中

type
  TForm1 = class(TForm)
  published
    procedure FormCreate(Sender: TObject);
  private
    FMyExport : TStDBtoCSVExport;
    procedure TForm1.MyExportProgressHandler(Sender : TObject; Index : Integer;
                                             var Abort : Boolean);        
  end;

procedure TForm1.Create(inOwner);
begin
  FMyExport := TStDBtoCSVExport.Create;
  FMyExport.OnExportProgress := MyExportProgressHandler;
end;

procedure TForm1.MyExportProgressHandler(Sender : TObject; Index : Integer;
                                         var Abort : Boolean);
begin
  { anything you like }
end;