Komponente entwickeln mit TCollection, TCollectionItem PropertyEditor

[stahli]

Also ich komme noch nicht ganz hinterher...

Ich würde folgendes empfehlen:
Erstelle Dir eine normale Komponente, die Du für Deine IDE registrierst und somit auf Dein Formular ziehen kannst.
In der Komponente kannst Du Eigenschaften veröffentlichen, die Du im Objektinspektor setzen kannst oder auch dynamisch zur Laufzeit.

Da brauchst Du noch keinerlei Komponenten- oder Propertyeditor und auch kein Designtimepackage (einfach Komponente für eine Registerseite registrieren).
Diese Editoren kannst Du bei Bedarf später in einem anderen Package erzeugen, das dann Dein "Komponentenpackage" benutzt. Diese Editoren würden Dir dann ja "nur" eine komfortablere Einstellung der Komponente zur Designtime ermöglichen.

[Bummi]

@daniel775 vielleich habe ich etwas missverstanden aber die Anforderung liest sich für mich etwas überspitzt wie:
Eine Komponente die ich auf was auch immer ziehen in der ich alle Forms meiner Anwendung designen kann?

[daniel775]

Warum versteht mich denn keiner?

Vielleicht bin ich zu Detailverliebt.
Ok, vergessen wir es. Mir ist heute etwas eingefallen, wie ich es vielleicht einfacher angehen könnte.

Jetzt mal rein hypothetisch:

- Datei > Neu > Anwendung = Form1
- Form1 + MyComponent
- Datei > Neu > Form = Form2
- Form2 + btnOK + btnCancel + txtUser + txtPass
- Im OI unter Events von MyComponent ein doppelklick auf onInit

Unit MyComponent

Code:

...
type
  TFormClass = class of TForm;
  TInitEvent = procedure(Sender: TObject; DlgFormClass: TFormClass) of Object;
  TMyComponent1 = class
  private
    FDlgFormClass: TFormClass;
    FDialog: TForm;
    FOnInit: TInitEvent;
    procedure setAnmeldeDlg(value: TFormClass);
    function getAnmeldeDlg: TFormClass;
  public
    constructor create;
    destructor destroy;
    procedure Init(Sender: TObject; DlgFormClass: TFormClass);
    procedure Test;
  published
    property AnmeldeDlg: TFormClass read FDlgFormClass write FDlgFormClass;
    property OnInit: TInitEvent read FOnInit write FOnInit;
  end;

...

constructor TMyComponent1.create;
begin
  inherited;
  OnInit := self.Init;
end;

destructor TMyComponent1.destroy;
begin
  if assigned(FDialog) then
    FreeAndNil(FDialog);
  inherited;
end;

procedure TMyComponent1.setAnmeldeDlg(value: TFormClass);
begin
  FDlgFormClass := value;
end;

function TMyComponent1.getAnmeldeDlg: TFormClass;
begin
  result := FDlgFormClass;
end;
procedure TMyComponent1.Init(Sender: TObject; DlgFormClass: TFormClass);
begin
  ...
  self.setAnmeldeDlg(DlgFormClass);
  ...
end;

procedure TMyComponent1.Test;
begin

  freeAndNil(FDialog);

  try

    if not Assigned(FDialog) then
    begin
      FDialog := FDlgFormClass.Create(application);
      if assigned(FDialog) then
      begin
        FDialog.ShowModal;
      end;
    end;

  Except
    showMessage('error');
  end;

end;

Unit Clientform

Code:

procedure TForm1.FormShow(Sender: TObject);
var
  obj: TMyComponent1;
begin

  obj := nil;
  if not assigned(obj) then
    obj := TMyComponent1.create;

  if assigned(obj) then
  begin
    // Aufruf der Objekt Methode Init und übergabe der Parameter Sender und TForm3 als Klassenreferenz an die Komponente.
    // Die anschliessende Instanzierung von TForm3 geschieht in der Komponente durch die Methode Test.
    obj.Init(self, Tform3);  
    obj.Test;
    obj.destroy;
  end;

end;

Ich übergebe hier an die Komponente eine Klassenreferenz einer Form, damit der Nutzer dieser Komponente Gestaltungsfreiheit für den
Dialog zur Benutzerauthentifizerung hat.
Innerhalb der Komponente kann dann durch gekapselte Methoden auf die Form zugegriffen bzw. angezeigt werden. Das wollte ich eigentlich erreichen.