Événement stExport de Turbo Power systools en Delphi

Question

J'utilise stExport de turbopower à partir du paquet systools'. Je l'utilise pour exporter un ensemble de données. Cela fonctionne très bien. La classe met à disposition FOnExportProgress. Cette classe n'a pas de composant visuel et donc pas d'inspecteur d'objet pour simplement double cliquer et faire en sorte que Delphi crée l'événement pour moi. Quelqu'un peut-il fournir un exemple simple de création manuelle de l'événement ?

Pour la plupart des composants visuels, delphi le prévoit pour vous. Exemple :

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

Comment faire pour créer manuellement ce document ?

J'inclus ci-dessous un extrait de la classe qui fait référence à l'événement.

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

FOnExportProgress : TStExportProgressEvent;
    FOnQuoteField : TStOnQuoteFieldEvent;

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

Comment affecter manuellement l'option OnExportProgress.

Veuillez inclure un exemple simple !

Merci.

Answer 1

En supposant que tout cela se passe à l'intérieur de votre formulaire

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;