类继承的问题

[realx]

有基类FORMA(是一个FORM)，FORMA中有个按扭BUTTON1，BUTTON1.click的时候弹出FORMB。要求所有继承自FORMA的类FORMAN，当FROMAN.BUTTON1.click的时候弹出FORMB，FORMB.CAPTION:=FORMAN.CAPTION。请问该如何实现？

[postren]

FormA
-------------
unit Unit1;

interface

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

type
TFormA = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FormA: TFormA;

implementation

uses Unit3;

{$R *.dfm}

procedure TFormA.Button1Click(Sender: TObject);
begin
FormB.Show(Caption);
end;

end.
----------
FormB
-------unit Unit3;

interface

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

type
TFormB = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
procedure Show(ACaption: string); overload;
end;

var
FormB: TFormB;

implementation

{$R *.dfm}

procedure TFormB.Show(ACaption: string);
begin
Self.Caption := ACaption;
Self.Show;
end;

end.

--------
FormN
-----
unit Unit2;

interface

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

type
TFormN = class(TFormA)
private
{ Private declarations }
public
{ Public declarations }
end;

var
FormN: TFormN;

implementation

{$R *.dfm}

end.

[才子鸣]

UP樓上的

[yi10000]

来完了,帮顶

[hongqi162]

100分啊。。。。

[Comer]

100分啊。。。。

[qzmp_sc]

100分啊。。。。

[tianyan0307]

UP