inheritedconnectform.pas

ODAC+SDAC源代码

unit InheritedConnectForm;

interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ConnectForm, StdCtrls, Mask, ExtCtrls;

type
  TfmInheritedConnect = class(TConnectForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmInheritedConnect: TfmInheritedConnect;

implementation

{$R *.nfm}

initialization
  if GetClass('TfmInheritedConnect') = nil then
    Classes.RegisterClass(TfmInheritedConnect);
end.