Ir al contenido


Foto

[RESUELTO] Sobre las Bpls


  • Por favor identifícate para responder
5 respuestas en este tema

#1 look

look

    Advanced Member

  • Miembros
  • PipPipPip
  • 418 mensajes
  • LocationLa Ceiba-Atlantida-Honduras

Escrito 28 marzo 2011 - 01:29

Hola amigos, estoy experimentando la ultilizacion de formularios dentro de bpls, pero estoy obteniendo un efecto extraño en la aplicasion:
Imagen Enviada
al llamar en formulario que esta dentro de la bpl me da este efecto , el form se abre como otra tarea en la barra de tareas, como puedo evitar este efecto?.
me hechan una mano?
  • 0

#2 poliburro

poliburro

    Advanced Member

  • Administrador
  • 4.945 mensajes
  • LocationMéxico

Escrito 28 marzo 2011 - 01:51

Qué raro, yo uso extensivamente BPLS y nunca me ha pasado eso. Podrias describir un poco de como las estas usando?
  • 0

#3 look

look

    Advanced Member

  • Miembros
  • PipPipPip
  • 418 mensajes
  • LocationLa Ceiba-Atlantida-Honduras

Escrito 28 marzo 2011 - 01:57

hola amigo , tambien a mi me parece extraño ya que tengo otro projecto en delphi 7 y no me da este efecto, sinembargo en este projecto estoy utilizando el delphi 2010...

este es mi form principal:


delphi
  1. unit uFrmPrincipal;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ComCtrls, Menus, ImgList, ExtCtrls, Buttons, StdCtrls;
  8.  
  9. type
  10.   TcInvServs = procedure;
  11.   TcDataModule_Invent = procedure;
  12.  
  13.   TFrmPrincipal = class(TForm)
  14.     pgc1: TPageControl;
  15.     ts1: TTabSheet;
  16.     ts2: TTabSheet;
  17.     ts3: TTabSheet;
  18.     ts4: TTabSheet;
  19.     mm1: TMainMenu;
  20.     Archivo1: TMenuItem;
  21.     Edicion1: TMenuItem;
  22.     Reortes1: TMenuItem;
  23.     Ayuda1: TMenuItem;
  24.     stat1: TStatusBar;
  25.     pnl1: TPanel;
  26.     ilImages: TImageList;
  27.     btn1: TSpeedButton;
  28.     btn2: TSpeedButton;
  29.     pnl2: TPanel;
  30.     pnl3: TPanel;
  31.     pnl4: TPanel;
  32.     btn3: TSpeedButton;
  33.     procedure CargarBpls();
  34.     procedure FormDestroy(Sender: TObject);
  35.     procedure FormCreate(Sender: TObject);
  36.     procedure btn3Click(Sender: TObject);
  37.   private
  38.     /// inventarios
  39.     PckgModuleInv : HModule;
  40.     cInvServs : TcInvServs;
  41.     cDataModule_Invent :TcDataModule_Invent;
  42.   /////
  43.     procedure LoadPckgModuleInv;
  44.  
  45.  
  46.     { Private declarations }
  47.   public
  48.     { Public declarations }
  49.   end;
  50.  
  51. var
  52.   FrmPrincipal: TFrmPrincipal;
  53.  
  54. implementation
  55.  
  56. {$R *.dfm}
  57.  
  58.  
  59.  
  60. procedure TFrmPrincipal.btn3Click(Sender: TObject);
  61. begin
  62.   if PckgModuleInv = 0 then LoadPckgModuleInv;
  63.   if Assigned(cInvServs) then cInvServs;
  64.  
  65. end;
  66.  
  67. procedure TFrmPrincipal.CargarBpls();
  68. begin
  69.   LoadPckgModuleInv;
  70. end;
  71.  
  72.  
  73. procedure TFrmPrincipal.FormCreate(Sender: TObject);
  74. begin
  75. CargarBpls();
  76. end;
  77.  
  78. procedure TFrmPrincipal.FormDestroy(Sender: TObject);
  79. begin
  80.   try
  81.     if PckgModuleInv <> 0 then UnloadPackage(PckgModuleInv);
  82.   except
  83.   end;
  84. end;
  85.  
  86. procedure TFrmPrincipal.LoadPckgModuleInv;
  87. begin
  88.   PckgModuleInv := LoadPackage('ModInv.bpl');
  89.   if PckgModuleInv <> 0 then
  90.   try
  91.     @cInvServs := GetProcAddress(PckgModuleInv,'cInvServs');
  92.     @cDataModule_Invent := GetProcAddress(PckgModuleInv,'cDataModule_Invent');
  93.   except
  94.     ShowMessage ('Error al cargar ModInv.Bpl ');
  95.   end;
  96. end;
  97.  
  98. end.



y este el que esta en la bpl:


delphi
  1. unit uFrmInventarios;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ExtCtrls, Menus, Buttons;
  8.  
  9.     procedure cInvServs;
  10.  
  11. type
  12.   TFrmInventarios = class(TForm)
  13.     pnl1: TPanel;
  14.     mm1: TMainMenu;
  15.     Archivos1: TMenuItem;
  16.     Edicion1: TMenuItem;
  17.     Reportes1: TMenuItem;
  18.     Ayuda1: TMenuItem;
  19.     btn1: TSpeedButton;
  20.     procedure FormCreate(Sender: TObject);
  21.   private
  22.     { Private declarations }
  23.   public
  24.     { Public declarations }
  25.   end;
  26.  
  27. var
  28.   FrmInventarios: TFrmInventarios;
  29.  
  30. implementation
  31.  
  32. {$R *.dfm}
  33.  
  34. procedure cInvServs;
  35. begin
  36.   if NOT Assigned(FrmInventarios) then
  37.   Begin
  38.     FrmInventarios := TFrmInventarios.Create(Application);
  39.     FrmInventarios.Show;
  40.     EXIT;
  41.   END
  42.   ELSE;
  43.     FrmInventarios.Show;
  44.     FrmInventarios.WindowState:=wsMaximized;
  45. end;
  46.  
  47. exports cInvServs;
  48.  
  49. procedure TFrmInventarios.FormCreate(Sender: TObject);
  50. begin
  51. { SetWindowPos(Handle,
  52.               HWND_TOPMOST,
  53.               0, 0, 0, 0,
  54.               SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW); }
  55. end;
  56.  
  57. end.





  • 0

#4 look

look

    Advanced Member

  • Miembros
  • PipPipPip
  • 418 mensajes
  • LocationLa Ceiba-Atlantida-Honduras

Escrito 28 marzo 2011 - 03:48

hola amigos descubri algo :
Imagen Enviada

como ven , si selcciono build wrp. funciona muy bien, a que se debe esto? , en mi delphi 7 no pasa esto, en delphi 7 esa funcion la tengo uncheck y funciona muy bien  pero en este delphi tube que hacer esto.
estoy confundido. :s

  • 0

#5 poliburro

poliburro

    Advanced Member

  • Administrador
  • 4.945 mensajes
  • LocationMéxico

Escrito 28 marzo 2011 - 04:23

Esa opción es para que el compilador integre los paquetes dentro del ejecutable o para que los cargue en tiempo de ejecución.

cuando trabajas con paquetes es necesario que esté habilitado
  • 0

#6 look

look

    Advanced Member

  • Miembros
  • PipPipPip
  • 418 mensajes
  • LocationLa Ceiba-Atlantida-Honduras

Escrito 28 marzo 2011 - 04:24

entiendo , gracias amigo.
Saludos!.

  • 0




IP.Board spam blocked by CleanTalk.