自定义事件怎么传递参数

Question

比如：
procedure TF_main.N2Click(Sender: TObject);
var
  Start_Dk: TThread;
  Str1,Str2:String;
begin
Str1:='123131';
Str2:='fdsfsfds';
Start_Dk := TDataImport.Create(Str1,Str2);
Start_Dk.OnTerminate := Thread1Done(??????怎么写，把str1,str2传递进？);
//Thread1Done是自定义的事件
end;procedure  Thread1Done(......参数怎么写传递？)
begin
  ??????
  ???????
end;请大侠指点！分数不够另加！！

Answer 1

看看帮助中 function 和 procedure 的使用方法。

Answer 2

看一个procedure的定义，你就明白了。
比如在你上面的程序中你想把str1,str2传进来,你就必须声明成如下：
 procedure TF_main.N2Click(s1,s2:string );

Answer 3

procedure  Thread1Done(Sender:Tobject var s1:string)

Answer 4

对于radeonle(radeon) 的回答，不明白！请再说明一下！
至于
lonely_wolf(孤狼) ( ) 信誉：100  2002-11-13 18:56:00  得分:0 
看一个procedure的定义，你就明白了。
比如在你上面的程序中你想把str1,str2传进来,你就必须声明成如下：
 procedure TF_main.N2Click(s1,s2:string );
这样的传递参数只能使用于独立的调用该函数，但是我要的是类似一个的自定义时间，比如：比如菜单的click事件调用那些代码的内容
 
 

Answer 5

agree to  回复人： radeonle(radeon) ( )

Answer 6

procedure OnlabClick(Sender : TObject);
procedure whereMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
procedure OnMouseLeaveLabel(Sender : TObject);
//以上自定义了三个事件
lad := TLabel.Create(dlgDDCX11.Panel1); //要创建在什么地方
lad.Caption := 'AAAAAAA';
lad.Top := 5;
lad.Left := 117;
lad.Parent := dlgDDCX11.Panel1;
//以下是加载事件
lab.OnClick := onlabClick;
lab.OnMouseMove := whereMouseMove;
lab.OnMouseLeave := ONMouseLeaveLabel;

Answer 7

TO:： DelUser(探索者) 
现在我想问的就是能不能onlabClick带参数，我想传递一个参数的数值进入到onlabClick函数里面！

Answer 8

onlabClick带参数可以带参数！
procedure OnlabClick(s1,s2:string );

Answer 9

对回复人： pdbird(老巢) ( ) 
onlabClick带参数可以带参数！
procedure OnlabClick(s1,s2:string );
 
但是下面的调用事件怎么写啊？ 
Lab.OnClick := onlabClick(s1,s2）;肯定通不过
因为缺少object对象