老大们，，，，给写点代码，，如何定义一个事件，，参数是string ,,如何触发，如何调用

Question

老大们，，，，给写点代码，，如何定义一个事件，，参数是string ,,如何触发，如何调用

Answer 1

private 
procedure  onString(yourStr:string);………………procedure TForm1.onString(yourStr:string);
begin
 //---diy
end;

Answer 2

private
    procedure Show(s:string);   ////////定义
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
procedure TForm1.Show(s:string);
begin
  showmessage(s);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  show(Edit1.Text);                     
end;

Answer 3

结果是这样的
unit ExecuteHandler;
interface
uses
  Classes, SearchBase;
type
  TOnGetPlace = procedure(place: string) of object;
  TExecuteHandler = class(TThread)
  private
    TS: TSearchBase;
    FOnGetPlace: TOnGetPlace;
  protected
    procedure Execute; override;
  public
    constructor Create(CreateSuspended: Boolean; TS: TSearchBase);
    property OnGetPlace: TOnGetPlace read FOnGetPlace write FOnGetPlace;
  end;implementation
{ TExecuteHandler }constructor TExecuteHandler.Create(CreateSuspended: Boolean;
  TS: TSearchBase);
begin
  FreeOnTerminate := True;
  Self.TS := TS;
  inherited Create(CreateSuspended);
end;procedure TExecuteHandler.Execute;
var
  place: string;
begin
  place := self.TS.GetPlace;
  if Assigned(OnGetPlace) then OnGetPlace(place);
  if self.Terminated then exit;
end;end.

Answer 4

老大们，，，，给写点代码，，如何定义一个事件，，参数是string ,,如何触发，如何调用你描述的很模糊，说说你具体想干吗？？

Answer 5

谢谢free007(魔蝎) ( ) 信誉：96