我要在第二个窗体里调用第一个窗体中自定义的事件为什么不好用啊!
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure sum; //定义事件;
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}
procedure TForm1.sum;
var
i:string;
begin
i:='我是李小明';
showmessage(i);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
sum;
end;

第二个窗体调用.
procedure TForm2.Button1Click(Sender: TObject);
begin
unit1.sum;
end;
错误信息是:0[Error] Unit2.pas(28): Undeclared identifier: 'unit1'
[Fatal Error] Unit1.pas(27): Could not compile used unit 'Unit2.pas'

第二个单元才要uses unit1 而不是在第一个单元里面这样uses unit2
后面的不是unit1.sum而是楼上说的form1.sum