50分小问题！:如何通过自定义事件的参数传回必要的值？？？

Question

试试定义为： OnAAA(Sender:TObject；var S:String);==================================================
PhotoMark：一款快速图片水印添加工具，支持多个水印同时添加！支持批处理，支持透明水印和半透明水印，支持水印的平铺等等。是您保护图片的利器。 下载地址：
http://www.skycn.com/soft/9031.html
http://www.onlinedown.com/photo.htm
生成的图片示例:
http://www.ncu94.com/keyzsoft/pm_exam.htm

Answer 1

function OnAAA(Sender:TObject；var S:String):string;
begin
   s :=s1;
   result:=s;
end;
s和ONAAA都返回s1的值；
在com中定义
function OnAAA((in) Sender:TObject；(out)var S:String):string;

Answer 2

在com中的定义只是形式，这样肯定不对，请你查阅COM的有关资料

Answer 3

我的意思是：我自己组件TmyCtrl的OnAAA事件应该如何定义。

Answer 4

事件跟属性是一样的。
type 
  Taaa = procedure(Sender:TObject,S:String) of objected;public
  property OnAAA: Taaa read FOnAAA Write FOnAAA;
end;
implementationprocedure SomeThingbegin;//你的触发事件。
begni
  if Assigned(FOnAAA) then FOnAAA(S1);
end;

Answer 5

OnAAA(Sender:Tmsg); message AAA;
S1的首地址可放在LPARAM 或 WPARAM传送。