delphi中事件调用的问题（在线等）

[yoyoxu]

比如增加，删除，存盘 这些在很多地方都可以用到，我现在不想在每个FORM中都写这些控件的代码，
以下有两个FORM中“增加”控件的代码。其中这两个FORM在Clientdataset中的名称不一样，一个是CDSInsurance，另外一个是CDSDorm，如果FormDorm.btnAddClick要调用FormInsurance.btnAddClick的这段代码，应该怎样写？
procedure TFormInsurance.btnAddClick(Sender: TObject);
begin
formDateModule.CDSInsurance.Append;

DBedtNO.Enabled:=true;
DBGrid.Enabled:=false;

DBedtNO.SetFocus;
end;

procedure TFormDorm.btnAddClick(Sender: TObject);
begin
formDateModule.CDSDorm.Append;

DBedtNO.Enabled:=true;
DBGrid.Enabled:=false;

DBedtNO.SetFocus;
end;

[luxuewei5214]

自己定义一个过程，把不同的地方作为参数传入好了

[hsmserver]

procedure appenddata (Clientdataset1:TClientdataset);
begin
Clientdataset1.append;
DBedtNO.Enabled:=true;
DBGrid.Enabled:=false;
end;


procedure TFormInsurance.btnAddClick(Sender: TObject);
//调用
begin
appenddata(formDateModule.CDSInsurance);
end;
procedure TFormDorm.btnAddClick(Sender: TObject);
//调用
begin
appenddata(formDateModule.CDSDorm);
end;

[yoyoxu]

hsmserver(撒哈拉之雨的悲伤)
这段代码应该写在哪个事件里面呢，抱歉，俺是菜鸟：）
procedure appenddata (Clientdataset1:TClientdataset);
begin
Clientdataset1.append;
DBedtNO.Enabled:=true;
DBGrid.Enabled:=false;
end;

[wudi_1982]

我给你做个例子，等下发给你。

[ron_xin]

做个窗体基类嘛~~Form2继承Form1,在Form1写的代码其它继承它的窗体都会调用~~`

[andyzhou1101]

hsmserver(撒哈拉之雨的悲伤)
这段代码应该写在哪个事件里面呢，抱歉，俺是菜鸟：）
procedure appenddata (Clientdataset1:TClientdataset);
begin
Clientdataset1.append;
DBedtNO.Enabled:=true;
DBGrid.Enabled:=false;
end;

-----------------------------------------------

可以创建一个公共单元
其他单元引用这个单元的函数就可以了

[wudi_1982]

给你做了一个例子，根据函数名调用函数
unit Unit1;

interface

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

type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('abc');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage('123');
end;

procedure dy(p: TNotifyEvent;sender : TObject);
begin
p(sender);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
dy(Button1Click,Sender);//调用button1的onclick事件
dy(Button2Click,Sender);//调用button2的onclick事件
end;

end.

[dataopen]

都是好方法