1、打开Delphi7集成开发环境,在默认工程的Form1窗体放一个Button1控件。

2、在Unit.pas源代码文件中,定义一个类,包含类方法代码如下;implementation{$R 忮氽阝另*.dfm}type TMyJTClass = class private public class procedure warn(s: string);end;{ TMyJTClass }class procedure TMyJTClass.warn(s: string);beginend;注意类方法不能定义在private区

3、在类方法中写如下代码:{ TMyJTClass }class procedure TMyJTClass.warn(s: string);begin showMessage('我是类方法');end;

4、双击Button1按钮,进入事件方法,并写如下代码:procedure TForm1.Button1Click(Sender: TObject);vars:string;begin TMyJTclass.warn(s);end;这是通过类来调用。

5、F9运行程序,点击Button1按钮,会弹出‘我是静态方法’对话框

6、双击Button1按钮,进入事件方法,并修改如下代码:procedure TForm1.Button1Click(Sender: TObje艘早祓胂ct);vars:string;myJTObj:TMyJTclass;begin myJTObj:=TMyJTclass.Create; myJTObj.warn(s);end;这是通过对象调用的静态方法

7、F9运行程序,点击Button1按钮,会弹出‘我是静态方法’对话框
