0

私は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 を手動で割り当てるにはどうすればよいですか。

簡単な例を含めてください！

ありがとうございました。

4

1 に答える 1

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;
于 2009-04-15T21:43:42.187 に答える