{"id":4562,"date":"2019-07-25T11:44:05","date_gmt":"2019-07-25T09:44:05","guid":{"rendered":"https:\/\/www.sendasoft.com\/como-puedo-trabajar-con-paquetes-cargados-dinamicamente-que-contienen-formularios-dentro-de-ellos\/"},"modified":"2020-08-16T21:30:52","modified_gmt":"2020-08-16T19:30:52","slug":"como-puedo-trabajar-con-paquetes-cargados-dinamicamente-que-contienen-formularios-dentro-de-ellos","status":"publish","type":"post","link":"https:\/\/www.sendasoft.com\/es\/como-puedo-trabajar-con-paquetes-cargados-dinamicamente-que-contienen-formularios-dentro-de-ellos\/","title":{"rendered":"\u00bfC\u00f3mo trabajar con ‘paquetes cargados din\u00e1micamente’ que contienen formularios dentro de ellos?"},"content":{"rendered":"

El ejecutable que vas a utilizar para cargar esos paquetes din\u00e1micos (dpl, bpl<\/strong>) debe tener conectada la opci\u00f3n ‘Build with runtime packages<\/strong>‘, adem\u00e1s, en el campo de edici\u00f3n correspondiente a esta opci\u00f3n debe encontrarse el nombre del paquete o paquetes de JfControls que utilice, es decir: JfCtrls_d6;JfCtrlsGrid_d6<\/strong><\/p>

Esta opci\u00f3n se suele encontrar en ‘Project Options<\/strong>‘ \/ Packages<\/strong> Tab.<\/p>

Tambi\u00e9n deber\u00e1n encontrarse en dicho campo de edici\u00f3n todos aquellos paquetes de Delphi que quiera utilizar la aplicaci\u00f3n est\u00e1ticamente.<\/p>

Cada unidad del paquete (dpl<\/strong>, bpl<\/strong>) que contenga una forma deber\u00e1 de registrarla de la siguiente manera:<\/p>

initialization\n  RegisterClass(TFrForm1);\nfinalization\n  UnRegisterClass(TFrForm1);<\/code><\/pre>
Para crear las formas contenidas en los paquetes din\u00e1micos deber\u00e1n de utilizarse las siguientes funciones de JfControls:<\/p>
procedure JfWndPkgCreate(AOwner: TCustomForm; var AForm: TForm; ALibrary: String; AFormClass: String; ACenterOptions: TJfCenterOptions);\nprocedure JfWndPkgCreateModal(AOwner: TCustomForm; var AForm: TForm; ALibrary: String; AFormClass: String; ACenterOptions: TJfCenterOptions);\nprocedure JfWndPkgShow(AOwner: TCustomForm; var AForm: TForm; ALibrary: String; AFormClass: String; ACenterOptions: TJfCenterOptions);\nfunction JfWndPkgShowModal(AOwner: TCustomForm; var AForm: TForm; ALibrary: String; AFormClass: String; ACenterOptions: TJfCenterOptions): TModalResult;<\/code><\/pre>
Por ejemplo:<\/p>
 TFrMain = class(TForm)\n    JfCApp: TJfCApplication;\n    CForm: TJfCForm;\n    JfSpeedButton1: TJfSpeedButton;\n    JfSpeedButton2: TJfSpeedButton;\n    procedure JfSpeedButton1Click(Sender: TObject);\n    procedure JfSpeedButton2Click(Sender: TObject);\n    procedure CFormFormDestroy(Sender: TObject);\n  private\n    { Private declarations }\n    f1, f2: TForm;\n  public\n    { Public declarations }\n  end;\nprocedure TFrMain.JfSpeedButton1Click(Sender: TObject);\nbegin\n  JfWndPkgShow(Self, f1, 'FormsPkg.dpl', 'TFrForm1', ceoPriorWindow);\nend;\nprocedure TFrMain.JfSpeedButton2Click(Sender: TObject);\nbegin\n  JfWndPkgShow(Self, f2, 'FormsPkg.dpl', 'TFrForm2', ceoPriorWindow);\nend;\nprocedure TFrMain.CFormFormDestroy(Sender: TObject);\nbegin\n  if Sender = f1 then f1 := nil;\n  if Sender = f2 then f2 := nil;\nend;<\/code><\/pre>
\n
\n
Versi\u00f3n:<\/strong> 1.0.0<\/p>\n<\/div>\n\n
\n
Tama\u00f1o:<\/strong> 28 KB<\/p>\n<\/div>\n\n
\n
Publicado:<\/strong> agosto 12, 2020<\/p>\n<\/div><\/div>\n\n
Ejemplo 1 D3<\/a><\/div>\n\n
Ejemplo de paquetes cargados din\u00e1micante (Delphi 3)<\/div>\n\n
\n
Disponible en<\/strong>: JfControls Standard, Developer y Profesional<\/p>\n<\/div>\n\n
\u00a1Descarga ahora!<\/a><\/div><\/div><\/p><\/div><\/div>\n\n
<\/div>
\n
Versi\u00f3n:<\/strong> 1.0.0<\/p>\n<\/div>\n\n
\n
Tama\u00f1o:<\/strong> 30 KB<\/p>\n<\/div>\n\n
\n
Publicado:<\/strong> agosto 12, 2020<\/p>\n<\/div><\/div>\n\n
Ejemplo 1 D5<\/a><\/div>\n\n
Ejemplo de paquetes cargados din\u00e1micante (Delphi 5)<\/div>\n\n
\n
Disponible en<\/strong>: JfControls Standard, Developer y Profesional<\/p>\n<\/div>\n\n
\u00a1Descarga ahora!<\/a><\/div><\/div><\/p><\/div><\/div>\n\n
<\/div>
\n
Versi\u00f3n:<\/strong> 1.0.0<\/p>\n<\/div>\n\n
\n
Tama\u00f1o:<\/strong> 30 KB<\/p>\n<\/div>\n\n
\n
Publicado:<\/strong> agosto 12, 2020<\/p>\n<\/div><\/div>\n\n
Ejemplo 1 D6<\/a><\/div>\n\n
Ejemplo de paquetes cargados din\u00e1micamente (Delphi 6)<\/div>\n\n
\n
Disponible en<\/strong>: JfControls Standard, Developer y Profesional<\/p>\n<\/div>\n\n
\u00a1Descarga ahora!<\/a><\/div><\/div><\/p><\/div><\/div>\n\n
<\/div><\/div>
<\/p><\/div><\/div>
\n\n<\/form><\/div>","protected":false},"excerpt":{"rendered":"
El ejecutable que vas a utilizar para cargar esos paquetes din\u00e1micos (dpl, bpl) debe tener conectada la opci\u00f3n ‘Build with runtime packages‘, adem\u00e1s, en el campo de edici\u00f3n correspondiente a esta opci\u00f3n debe encontrarse el nombre del paquete o paquetes de JfControls que utilice, es decir: JfCtrls_d6;JfCtrlsGrid_d6 Esta opci\u00f3n se suele encontrar en ‘Project Options‘ […]<\/p>\n","protected":false},"author":1,"featured_media":5055,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_et_pb_use_builder":"off","_et_pb_old_content":"","_et_gb_content_width":"","footnotes":""},"categories":[63],"tags":[88,87,85,84,80,81,82,83,90,86,78,89,79],"class_list":["post-4562","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-jfcontrols-es","tag-bpl-es","tag-dpl-es","tag-finalization-es","tag-initialization-es","tag-jfwndpkgcreate-es","tag-jfwndpkgcreatemodal-es","tag-jfwndpkgshow-es","tag-jfwndpkgshowmodal-es","tag-onformdestroy-es","tag-packages-es","tag-registerclass-es","tag-runtime-packages-es","tag-unregisterclass-es"],"_links":{"self":[{"href":"https:\/\/www.sendasoft.com\/es\/wp-json\/wp\/v2\/posts\/4562","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.sendasoft.com\/es\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.sendasoft.com\/es\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.sendasoft.com\/es\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.sendasoft.com\/es\/wp-json\/wp\/v2\/comments?post=4562"}],"version-history":[{"count":10,"href":"https:\/\/www.sendasoft.com\/es\/wp-json\/wp\/v2\/posts\/4562\/revisions"}],"predecessor-version":[{"id":5466,"href":"https:\/\/www.sendasoft.com\/es\/wp-json\/wp\/v2\/posts\/4562\/revisions\/5466"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.sendasoft.com\/es\/wp-json\/wp\/v2\/media\/5055"}],"wp:attachment":[{"href":"https:\/\/www.sendasoft.com\/es\/wp-json\/wp\/v2\/media?parent=4562"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.sendasoft.com\/es\/wp-json\/wp\/v2\/categories?post=4562"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.sendasoft.com\/es\/wp-json\/wp\/v2\/tags?post=4562"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}