Ver Mensaje Individual
  #12  
Antiguo 16-10-2006
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
El problema que veo es que no creas la ventana MsgBox para nada.

Si se arregló el problemas, es porque delphi está Creando la ventana Msgbox desde que arranca tu aplicación y según esa filosofía solamente deberías hacer un Msgbox.Show/ShowModal y despues un Msgbox.Hide.

Si lo que quieres es crear dinámicamente la ventana y liberarla de memoria, lo normal es hacerlo así:
Pon la propiedad Visible de Msgbox a False:
Código Delphi [-]
unit Main;
interface
uses
//... blablabla ...
type
  TMainWIN = class(TForm)
//... blablabla ...
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  MainWIN: TMainWIN;
  NombrePC: String;
  AudioCargado: Boolean;
implementation
{$R *.dfm}
 
Uses Textos; <- Aquí declaro el nombre del otro formulario
 
//... blablabla...
 
procedure TMainWIN.FormClick(Sender: TObject);
begin
 Msgbox := Application.Createform(TMsgbox, Msgbox);
// o bien 
 Msgbox := TMsgBox.Create(Application); // esto es exactamente igual que la línea anterior... sobre gustos... los colores
// o bien
 Msgbox := TMsgBox.Create(MainWin); // Al cerrar el Mainwin, automaticamente se libera el Msgbox
// o si quieres destruirla despues de mostrarla:
 MsgBox := TMsgbox.Create(nil); // nadie destruirá la ventana, nosotros por código lo haremos
Msgbox.ShowModal; <-- Aquí sale el error U_U


 FreeAndnil(MsgBox);// esta línea hace falta si hemos usado TMsgbox.Create(nil); 
end;
 
//... blablabla ...
 
end.

Además deberías ir a View -> Source Code y quitar la línea donde se crea la ventana MsgBox.

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.

Última edición por Lepe fecha: 16-10-2006 a las 11:37:02.
Responder Con Cita