写动态类的事件

Question

怎么给动态申明的变量写事件.
如:
var IdHTTP:TIdHTTP;怎么给写IdHTTP的onWork事件.

Answer 1

private
    { Private declarations }
    procedure DoWork(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCount: Integer);procedure TForm1.DoWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
beginend;procedure TForm1.BitBtn1Click(Sender: TObject);
  var IdHTTP:TIdHTTP;
begin
  IdHTTP:=TIdHTTP.Create(Owner);
  idhttp.OnWork:=DoWork;
end;

Answer 2

去DELPHI的VCL里找下TIdHTTP的事件代码即可