델파이의 Turbo Power systools stExport 이벤트

Question

나는 systools의 패키지에서 turbopower의 stExport를 사용하고 있습니다. 이를 사용하여 데이터 세트를 내 보냅니다. 그건 잘된거야. Class는 FOnExportProgress를 사용할 수 있도록합니다. 이 클래스에는 시각적 구성 요소가 없으므로 오브젝트 인스펙터가 없으므로 단순히 클릭을 두 번 클릭하고 델파이에서 이벤트를 만듭니다. 누구든지 이벤트를 수동으로 만드는 방법에 대한 간단한 예제를 제공 할 수 있습니까 ??

대부분의 시각 구성 요소는 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를 할당합니까?

간단한 예를 들어주세요.

감사합니다.

Answer 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;