Hi,
das geht, ich hab das schonmal gemacht. Ich muss nur erst mal wieder rauskramen wo das war.
Dann melde ich mich wieder.
[Edit]
Hi,
ich habs gefunden
Also zunächst mal kannst Du deine Anwendung ganz normal erstellen.
Dann benötigst Du ein leeres TForm, und machst es zum Hauptformular deiner Anwendung.
Ich nenne es das Host Form:
Delphi-Quellcode:
type
TfrmHost =
class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
ChildForm: tForm;
public
{ Public-Deklarationen }
end;
var
frmHost: TfrmHost;
implementation
uses
uMeinEigentlichesHauptform;
// hier deine echte Hauptform-Unit eintragen.
{$R *.DFM}
procedure TfrmHost.FormCreate(Sender: TObject);
begin
// This code creates a child form that is just a normal
// Delphi TForm.
// This allows the form to be shown both as a normal
// VCL form and as an ActiveForm.
ChildForm := TForm(TMeinEigentlichesHauptform.Create(Self));
// hier das Hauptform instanziieren.
ChildForm.Parent := Self;
ChildForm.Align := alClient;
ChildForm.BorderStyle := bsNone;
ChildForm.Visible := True;
end;
Am besten machst du dieses Hostform genauso gross wie das eigentliche Programm,dann merkt man schon mal keinen Unterschied mehr.
Dieses war der erste Teil.
Jetzt erzeugst Du ein neues Projekt (Am besten eine Projektgruppe für diese beiden erstellen) welches ein Active-Form Projekt ist.
Auch hier hast Du dann eine Hauptform
Unit die als Host fungiert.
Delphi-Quellcode:
type
TOCXHost =
class(TActiveForm, IOCXHost)
private
{ Private-Deklarationen }
FEvents: IPricingHostEvents;
ChildForm: tForm;
....
implementation
uses
ComObj,
ComServ,
uMeinEigentlichesHauptform;
// hier wieder die eigentliche Hauptunit eintragen
...
procedure TOCXHost.Initialize;
begin
inherited Initialize;
OnActivate := ActivateEvent;
OnClick := ClickEvent;
OnCreate := CreateEvent;
OnDblClick := DblClickEvent;
OnDeactivate := DeactivateEvent;
OnDestroy := DestroyEvent;
OnKeyPress := KeyPressEvent;
OnPaint := PaintEvent;
// This code creates a child form that is just a normal
// Delphi TForm.
// This allows the form to be shown both as a normal
// VCL form and as an ActiveForm.
ChildForm := TForm(TMeinEigentlichesHauptform.Create(Self));
// hier das echte Hauptform instanziieren
ChildForm.Parent := Self;
ChildForm.Align := alClient;
ChildForm.BorderStyle := bsNone;
ChildForm.Visible := True;
end;
...
Das wars schon. Jetzt hast du dein Programm als Programm und als OCX.
Alle weiteren Units musst Du natürlich den beiden Projekten hinzufügen, wie im normalen Programm auch.
Viel Erfolg - bei mir läuft das prima, wenn du noch Fragen hast, du weist ja wo du mich findest
[/Edit]
Gruss