Hola a todos!
tengo el siguiente código.
Código:
program Project1;
uses
Forms,
uAvisos in 'uAvisos.pas' {fAvisos},
auxiliares in 'auxiliares.pas';
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TfAvisos, fAvisos);
Auxiliares.ejecutar;
Application.Run;
end.
Código:
unit uAvisos;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TfAvisos = class(TForm)
lTexto: TLabel;
bAceptar: TBitBtn;
bCancelar: TBitBtn;
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fAvisos: TfAvisos;
implementation
{$R *.dfm}
procedure TfAvisos.FormShow(Sender: TObject);
begin
lTexto.Caption := 'Espere...';
end;
end.
Código:
unit auxiliares;
interface
procedure ejecutar;
implementation
uses uAvisos, forms;
procedure ejecutar;
begin
fAvisos.Show;
fAvisos.Close;
fAvisos.Visible := False;
fAvisos.ShowModal;
end;
end.
Mi problema es el siguiente:
Tal como está el código, no me saca el form fAvisos. En cambio si solo dejo el fAvisos.Showmodal
Código:
unit auxiliares;
interface
procedure ejecutar;
implementation
uses uAvisos, forms;
procedure ejecutar;
begin
{ fAvisos.Show;
fAvisos.Close;
fAvisos.Visible := False;}
fAvisos.ShowModal;
end;
end.
sí que me lo muestra. ¿Alguien sabe qué estoy haciendo mal?
Muchas gracias a todos.
Jon