Delphi中子窗体如何继承父窗体

Posted 2023-03-16

我做了一个图书馆管理系统，由于查询，删除，添加等数据库操作的代码都相似，我就建了一个父窗体，包含这些操作。我想建一个子窗体继承父窗体的这些操作，请问该如何实现？

参考技术A interface

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

type
TForm2 = class(TForm1这里是Form1)
procedure FormCreate(Sender: TObject);
private
Private declarations
public
Public declarations
end;

var
Form2: TForm2;

implementation

$R *.dfm

procedure TForm2.FormCreate(Sender: TObject);
begin
Form2.ButtonGet.Caption := '';
end;

也可以把查询、添加、删除等数据库操作做成函数，传递不同的参数。