Turbo Power systools stExport événement dans Delphi

Question

J'utilise stExport turbopower de l'ensemble des systools. L'utiliser pour exporter un ensemble de données. Cela fonctionne très bien. La classe rend disponible FOnExportProgress. Cette classe n'a pas de composant visuel et donc aucun inspecteur d'objets ne double-clique simplement et Delphi crée l'événement pour moi. Quelqu'un peut-il fournir un exemple simple de la façon de créer l'événement manuellement?

Pour la plupart des composants visuels, delphi vous le fournit. Exemple:

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

Comment créer ceci manuellement.

J'inclus un peu de la classe ci-dessous 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 assigner manuellement OnExportProgress.

Veuillez inclure un exemple simple!

Merci.

Answer 1

En supposant que tout ceci 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;