Turbo Power systools stExport event in Delphi

Question

Hello

I am using turbopower's stExport from the systools' package. Using it to export a dataset. That works great. The Class makes available FOnExportProgress. This class does not have a visual component and so no object inspector to simply double click and have delphi create the event for me. Can anyone provide a simple example of how to create the event manually??

For most visual components delphi provides this for you. Example:

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

How does one manually create this.

I include a bit of the class below that refers to the event.

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

FOnExportProgress : TStExportProgressEvent;
    FOnQuoteField : TStOnQuoteFieldEvent;

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

How do I manually assign the OnExportProgress.

Please include a simple example !

Thank you.

Answer 1

Assuming this is all happening inside your form

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;