Did you know is possible use VCL and FMX (FireMonkey) togheter in your app?
Here my test about use of "VCL" and "FMX" objects togheter, to create one app to MS Windows!
Many want to use DLLs written in C / C ++ or another language along with their project in RAD Studio (Delphi or CBuilder), but they forget or do not know that a BPL is actually a binary library, such as a DLL, with due exceptions and differences in your call.
However, since a BPL is actually a binary Delphi / CBuilder code container, then this means you can create your own repository of objects (classes) and codes to use in your projects, in order to re-use their codes. (Remember one of the pillars of object-oriented language - Inheritance)
To use one framework within the other, in the case it may be: VCL within FMX, or FMX within VCL - you have to take a few basic steps.
You must create the objects that will be used by the other framework with a package (BPL / DCP), as RAD Studio does. In your application project, VCL or FMX, you must inform that you will use a custom "RUNTIME PACKAGE", which is your newly created package. Add the DCP file - not BPL file ok! IT's NOT NECESSARY INSTALL THE PACKAGE IN YOUR IDE, JUST HAVE IT TO USE! By default, RAD Studio saves the BPL and DCP files in your "Documents Public \ Embarcadero \ .... DCP and BPL sub-folders" - if you want, you can "copy it" for you project folder or any other place! Just DONT FORGET where is it, ok! After that, you simply inform in your application project, in the "USES" clause, which unit you intend to use, and which is inside your "package" that you created before. Then you can use the objects and classes as you normally do when using the RAD Studio default packages.
My project VCL that will use my TForm FMX (FireMonkey) ----------
unit uVCLFormMain;
interface
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Menus, // uFMXForm_inVCLproject // in my package with my objects FMX // ;
procedure TfrmVCLForm_inFMXproject.Button1Click(Sender: TObject); begin ShowMessage('Hello VCL project'); end;
procedure TfrmVCLForm_inFMXproject.Button2Click(Sender: TObject); begin Close; end;
procedure TfrmVCLForm_inFMXproject.ComboBox1Change(Sender: TObject); begin if (ComboBox1.Items.Count > 0) then TStyleManager.SetStyle(ComboBox1.Text); end;
procedure TfrmVCLForm_inFMXproject.FormClose(Sender: TObject; var Action: TCloseAction); begin Animate1.Active := False; end;
procedure TfrmVCLForm_inFMXproject.FormCreate(Sender: TObject); var lStyleName: string; begin Position := TPosition.poScreenCenter; // for lStyleName in TStyleManager.StyleNames do ComboBox1.Items.Add(lStyleName); // if (ComboBox1.Items.Count > 0) then ComboBox1.ItemIndex := 0; end;
https://www8.zippyshare.com/v/kbmj60kv/file.html https://clicknupload.org/v7c48lmmsd3t http://www.solidfiles.com/d/An754dAxPN6jX https://openload.co/f/dgnyct9TVKc/VCL_and_FMX_togheter.zip https://bayfiles.com/xfB8J4rcnc/VCL_and_FMX_togheter_zip https://anonfile.com/v6B1J5r9na/VCL_and_FMX_togheter_zip https://ddl.to/tgc8zeuo5wur https://tusfiles.com/h23gl726ho7g https://1fichier.com/?5fll4t9l2ppj60r2or2a https://sendit.cloud/undef https://douploads.com/a1pt0h6vhv9a https://www.file-up.org/f5q06tilb05p https://nofile.io/f/xvQgZZaXn9d/VCL_and_FMX_togheter.zip
----------------------------------------------
The higher the degree, the greater the respect given to the humblest!RAD 11.3
You have your app VCL and would like show 3D effects/picture etc... without use 3rd party components.
----------------------------------------------
The higher the degree, the greater the respect given to the humblest!RAD 11.3