Question

delphi定义事件过程的操作方法是什么?

Answer 1

自定义事件过程,根据有没有返回值分为两类: 有返回值的定义成function,没有返回值的定义成procedure.
如: function getUserName:string;
begin
return UserName;
end;
procedure setUserName(values:string);
begin
UserName:=values;
end;

Answer 2

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure test(); //声明test过程
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

procedure TForm1.test(); //test方法
begin
//事件操作
end;

end.

Answer 3

用procedure定义过程