FireMonkey Sammelthread

[mquadrat]

Zitat:

Zitat von Neisklar80 (Beitrag 1121291)

Also ich konnte das eben beim Testen ohne Probleme mixen.

Neue temporäre FM-HD Anwendung, und nur die FM-Form gespeichert.
Neue VCL Anwendung, FM-Form hinzugefügt, Warnung mit Ja bestätigt.
Ich konnte dann in meinem VCL Project die FM-Form regulär im Form-Designer beabeiten, FM-Form.Show läuft auch problemlos.

Jep, funktioniert :-) Zumindest das FM-Form von der Gui3D Sample-Anwendung.

[neo4a]

Ich habe die Formulare per DI mit Emballo eingebunden. So sieht die dpr aus:

Delphi-Quellcode:

program VCL_BaseApp;

uses
  Vcl.Forms,
  Emballo.DI.Registry,
  Emballo.DI.Core,
  VCLMainForm in 'VCLMainForm.pas' {MainForm},
  VCLForm2 in 'VCLForm2.pas' {Form2},
  MainUnit in 'C:\DXE2\Samples\Delphi\VCL\FlowPanel\MainUnit.pas' {VCLFlowPanel},
  Service in 'Service.pas',
  FMXMainForm in 'S:\FMX_BaseApp\FMXMainForm.pas' {FMXForm1},
  FMXFireFlow in 'FMX\FMXFireFlow.pas' {FMXFireFlow};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TMainForm, MainForm);
  RegisterFactory(IForm2, TForm2).Done;
  RegisterFactory(IFMXForm1, TFMXForm1).Done;
  RegisterFactory(IVCLFlowPanel, TVCLFlowPanel).Done;
  RegisterFactory(IFMXFireFlow, TFMXFireFlow).Done;
  Application.Run;
end.

Und so das Hauptformular, das die Formulare per Interface einbindet.

Delphi-Quellcode:

unit VCLMainForm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,

  Service;

type
  TMainForm = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.Button1Click(Sender: TObject);
begin
  DI_Form2.ShowMe;
end;

procedure TMainForm.Button2Click(Sender: TObject);
begin
  DI_FMXForm1.ShowMe;
end;

procedure TMainForm.Button3Click(Sender: TObject);
begin
  DI_VCLFlowPanel.ShowMe;
end;

procedure TMainForm.Button4Click(Sender: TObject);
begin
  DI_FMXFireFlow.ShowMe;
end;

end.

Edit: Ist die Anwendung VCL-basierend, kann man FastReport.VCL zusammen mit FMX-Forms benutzen. Ist die App aber FMX-basierend, kompiliert FastReport nicht, da die Unit-Referenzen nicht passen.

[kaju74]

Hallo.

Hmmm..schaffst Du es damit auch irgendwie, die Form nicht standalone aufzurufen, sondern in einen Bereich einer VCL-Form einzubetten? So ala .Parent := Self und Align = alClient...? Ich kannte Emballo zuvor nicht - was sind die Vorteile (so in ein zwei Sätzen)?

Danke & Gruß,
Marc

[neo4a]

Zitat:

Zitat von kaju74 (Beitrag 1121322)

Hallo.

Hmmm..schaffst Du es damit auch irgendwie, die Form nicht standalone aufzurufen, sondern in einen Bereich einer VCL-Form einzubetten? So ala .Parent := Self und Align = alClient...? Ich kannte Emballo zuvor nicht - was sind die Vorteile (so in ein zwei Sätzen)?

Tut's auch ein Link?

[mquadrat]

Zitat:

Zitat von kaju74 (Beitrag 1121322)

Ich kannte Emballo zuvor nicht - was sind die Vorteile (so in ein zwei Sätzen)?Marc

Stichworte für weiteren Lesestoff wären Dependency Injection und Inversion of Control. Passende Delphi-Lösungen dazu wären dann Emballo, DSharp, Spring for Delphi.

[neo4a]

Zitat:

Zitat von kaju74 (Beitrag 1121322)

schaffst Du es damit auch irgendwie, die Form nicht standalone aufzurufen, sondern in einen Bereich einer VCL-Form einzubetten?

Nein, derzeit leider noch nicht.

[kaju74]

...tja, wenn das ginge, wären meine Probleme gelöst und XE2 so gut wie bestellt...andernfalls muss ich doch die VGScene nehmen...

LG,
Marc

P.S: Ja, der Link tut's auch 8-)

[TiGü]

Zitat:

Zitat von neo4a (Beitrag 1121302)

Ich habe die Formulare per DI mit Emballo eingebunden. So sieht die dpr aus:

Aus dem Thema könnte man glatt ein Tutorial machen!
Wie wärs?

[Stevie]

Zitat:

Zitat von kaju74 (Beitrag 1121337)

...tja, wenn das ginge, wären meine Probleme gelöst und XE2 so gut wie bestellt...andernfalls muss ich doch die VGScene nehmen...

Bestell schon mal... ;)

Unit im Anhang nach VCL.ExtCtrls im interface Teil einbinden, TPanel auffe Form und folgende Zeile ins Create oder sonstwo.

Delphi-Quellcode:

Panel1.Form := TMeinTollesFireMonkeyForm.Create(Self);

[kaju74]

Yup...ich wolltst Euch auch gerade eben mitteilen:

http://delphisorcery.blogspot.com/20...e-playing.html

Super - werde das am MO gleich mal ausprobieren...bis dahin ein schönes Wochenende...oder:

Wisst Ihr, wie man mit einem DN-Account zweimal die Trial für XE2 installieren kann? Habe die Demo in
der Firma installiert und wollte daheim weiterspielen, aber das geht nicht mit ein und demselben DN...

Gruß,
Marc