一个非常菜的问题？（谁都会……除了我）

[bluewater]

对一个一般的应用程序。

如何自定义一个过程，而后再窗体的事件处理过程中调用？
最好能给出源程序
多谢~

[Neo2D]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure Foo; //自定义过程声明
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

{ TForm1 }

procedure TForm1.Foo;
begin
//自定义过程实现
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
Foo; //自定义过程调用
end;

end.

[Neo2D]

另外也可以在窗体类外面的定义，
实现部分变成
procedure Foo;
begin
//自定义过程实现
end;
调用相同

[bluewater]

谢谢楼上几位~

[dbpower]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
procedure FormActivate(Sender: TObject);
procedure MyPass(Sender:TObject); //自定义过程声明
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

{ TForm1 }
procedure MyPass(Sender:TObject);
begin
...
//自定义过程实现
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
...
MyPass(Sender); //自定义过程调用
end;

end.
当然你还可以传些参数进去，传出一个参数