Ich soll für meine Ausbildungsfirma einen Konfigurationswizard für unser Prozess-Leitsystem erstellen. Nun stehe ich vor folgendem Problem:
Der Wizard muss dynamisch mit Inhalt bestückt werden können. Das heißt, dass sowohl die Anzahl der Wizard-Seiten variabel sein soll (was wohl eher unproblematisch ist), als auch deren Inhalt. Es soll also ein Hauptprogramm geben, das letztendlich nur eine Container-Funktion ausübt, und die eigentliche Funktionalität wird in Plugins (DLLs, Packages) ausgelagert.
Als eine der besten Möglichkeiten, einen Wizard zu realisieren, wird ja oft die PageControl in Verbindung mit TabSheets genannt. Also habe ich auch schon mich daran versucht, auf dem Hauptformular nur eine leere PageControl zu platzieren und die TabSheets dann in eine
DLL auszulagern. Jedoch scheiterte es daran, das TabSheet anschließend in die PageControl einzubinden, so dass es dort auch sichtbar wird. Ich hab der von der
DLL veröffentlichten "CreateTabSheet"-Funktion das
Handle der PageControl übergeben, sodass dort ein neues TabSheet mit der PageControl aus dem Hauptformular als Parent kreiert werden kann. Nur reicht das ja noch nicht, um das TabSheet auch dort sichtbar zu machen. Und daran hängts momentan irgendwie.
Was ich allerdings auch noch nicht weiß ist, wie kann man in der
DLL ein reines TabSheet ohne Formular und PageControl erzeugen kann und dieses dann auch mit Komponenten wie Buttons, Labels etc. bestücken??? Ohne Formular kann man sich doch auch gar nicht so schön eine Oberfläche "zusammenklicken" oder?
Ansatz Nummer 2 waren die Packages, in die ich mich anhand von einem Beispiel aus dem Netz einarbeiten wollte. Das Progrämmchen sollte schlicht und einfach per Buttonklick ein andres Formular, das in einem
Package ausgelagert ist, modal öffnen. Doch obwohl ich mich strikt an die Anleitung bei der Erstellung des Progrämmchens gehalten habe funktioniert es nicht. Das Problem, an dem es wohl hängt: die Klasse TForm2 wird in der Unit2 (die im
Package) im initialization-Teil zwar registriert, jedoch SOFORT wieder unregistriert im finalization-Teil. Initialization und finalization laufen also hintereinander weg durch, was doch eigentlich nicht der fall sein sollte, oder?
Hier das Hauptformular:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 =
class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
PackageModule: HModule;
AClass: TPersistentClass;
begin
PackageModule := LoadPackage('
Package1.bpl');
if PackageModule <> 0
then
begin
AClass := GetClass('
TForm2');
if AClass <>
nil then
with TComponentClass(AClass).Create(Application)
as TCustomForm
do
begin
ShowModal;
Free;
end;
UnloadPackage(PackageModule);
end;
end;
end.
Hier das Formular 2 aus dem
Package:
Delphi-Quellcode:
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm2 =
class(TForm)
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form2: TForm2;
implementation
{$R *.DFM}
initialization
RegisterClass(TForm2);
finalization
UnRegisterClass(TForm2);
end.
In der
Jedi-
VCL gibt es wohl bereits eine Wizard-Komponente, allerdings kommt deren Einsatz für uns wohl nicht in Frage (gibt es da irgendwelche Lizenz-technischen Gründe?). Wobei ich auch nicht weiß, ob die überhaupt so einen dynamischen Aufbau unterstützen würde.
Was habt ihr mir für Ratschläge? Wie kann ich das Konzept "Hauptprogramm mit Container" - "Plugins für die Wizard-Seiten" am besten realisieren?
Danke schonmal für die Hilfe!