Unit Unit1;
Interface
Uses Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Diglogs;
Type
Tform1=Class(Tform)
Procedure FormCreate(Sender:Tobject); //定义一个事件
Private
Public
End;
Var
Form1:Tform1;
Implementation
{$R *.DFM}
Procedure Beep;
Begin
MessageBeep(0);
End;
//具体事件的方法
Procedure Tform1.FormCreate(Sender:Tobject);
Begin
Beep;
End;
End.
这里还有更详细的讲解,
http://gumanren.woku.com/article/1340099.html