FireMonkey Sammelthread

[Bernhard Geyer]

Zitat von blackfin:

Ich finde die Entscheidung richtig, die VCL nicht mit Firemonkey mischen zu können.
So verbaut man sich nichts für die Zukunft indem man dieses uralte Konstrukt immer noch mit einem völlig neuem GUI-Framework mitschleppt.

Finde ich nicht. Vor allem bei großen Apps wäre es schön die Umstellung formularweise durchführen zu können und jeweils immer noch ein lieferfähiges Produkt zu haben das nach und nach Platformunabhängig wird. Man muß ja das mixen nicht auf einem Form können. Aber das ein FM-Form in einem VCL-Projekt verwendet werden kann wäre schön.

[blackfin]

Zitat:

Aber das ein FM-Form in einem VCL-Projekt verwendet werden kann wäre schön.

Hmm....ok, da gebe ich dir recht. Das wäre wirklich eine schöne Übergangslösung.

[Neisklar80]

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.

[mquadrat]

Zitat von Neisklar80:

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 von 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)?

Tut's auch ein Link?

[mquadrat]

Zitat von kaju74:

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 von kaju74:

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

Nein, derzeit leider noch nicht.

[TiGü]

Zitat von neo4a:

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?