Sende class defination som parameter

hej

Jeg er ved at lave et standard skærmbillede som skal bruges vi skal bruge i en ny application.

det som jeg gerne vil er at kunne sende et navn med på en provider som skal bruges i skærmbilledet

så man eventuelt kunne skrive følgende i et skærmbillede som arver fra stdform.

inherited Create(Aowner, TUserData)


unit uStdForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,      Controls, Forms, Dialogs, dxBar, ActnList, uAspSystemData, uAspRecords, AscSysUtils,
  ExMessageBox, StdCtrls, Buttons, uAspProvider;

type
  TSaveAndCloseProcedure = procedure (var SaveData : Boolean; DataSet : TAspQuery) of object;


  TAspSTDForm = class(TForm)
    ActionList1: TActionList;
    dxBarManager1: TdxBarManager;
    bGem: TBitBtn;
    bClose: TBitBtn;
  private
    FEnterAsTab : Boolean;
    oProvider : TAspProvider;
    { Private declarations }
  protected
    function MessageDlgEx(Text, Titel: string;msgType: integer): integer;
    function ShowQuestion(Text, Titel: string): integer;
    function ShowWarning(Text, Titel: string): integer;
    procedure CMDialogKey(var Msg: TCMDialogKey); message CM_DIALOGKEY;
    procedure SaveAndClose;
    Procedure Close;
  public
    Constructor Create(Aowner : TComponent; ProviderClass : TClass; bEnterAsTab : boolean = true);

    { Public declarations }
  end;

var
  AspSTDForm: TAspSTDForm;

implementation

{$R *.dfm}

{ TAspSTDForm }

constructor TAspSTDForm.Create(Aowner : TComponent; ProviderClass : TClass; bEnterAsTab : boolean = true);
begin
  inherited Create(Aowner);
  self.FEnterAsTab := bEnterAsTab;
  self.dxBarManager1.Bars[0].Caption := self.Caption;
  self.oProvider := TAspProvider(ProviderClass).Create(Application.MainForm);
end;

function TAspSTDForm.MessageDlgEx(Text, Titel: string;
  msgType: integer): integer;
begin
  Result := ExMessageBox.MessageDlgEx(Text, Titel,msgType);
end;

function TAspSTDForm.ShowQuestion(Text, Titel: string): integer;
begin
  Result := ExMessageBox.ShowQuestion(Text, Titel);
end;

function TAspSTDForm.ShowWarning(Text, Titel: string): integer;
begin
  Result := ExMessageBox.ShowWarning(Text, Titel);
end;

procedure TAspSTDForm.CMDialogKey(var Msg: TCMDialogKey);
begin
  if (GetParentForm(Self).ActiveControl is TButtonControl) then
    inherited
  else
    if (Msg.CharCode = VK_RETURN) and self.FEnterAsTab then
    begin
      GetParentForm(Self).Perform(CM_DIALOGKEY, VK_TAB, 0);
      Msg.Result := 1;
    end
  else
    inherited;
end;

procedure TAspSTDForm.Close;
begin

end;

procedure TAspSTDForm.SaveAndClose;
begin

end;