Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Ventanas dobles (https://www.clubdelphi.com/foros/showthread.php?t=12367)

davidgaldo 14-07-2004 13:15:21

Ventanas dobles
 
Hola, tengo un pequeño problema, resulta que tengo una aplicación
con un menú principal, que el pulsar en un botón me abre otra ventana y si
vuelvo a pulsar el botón me abre otra igual, lo que quería era evitar que se abriera una segunda ventana si tengo la primera ya abierta, como hago?

tcp_ip_es 14-07-2004 13:36:52

Puedes hacer que esa ventana sea modal

Código Delphi [-]
form1:=tform1.create(self);
form1.showmodal;

Saludos, Tony

Nuria 14-07-2004 13:45:04

Añadir a lo dicho por tcp_ip_es.

Código Delphi [-]
  if not assigned(Form1) then
    Application.CreateForm(TForm1,Form1);
  Form1.show;

Saludos! ;)

roman 14-07-2004 17:39:23

Agregar a lo dicho por Nuria.

Código Delphi [-]
procedure TForm1.FormClose(Sender: TObject; Action: TCloseAction);
begin
  Form1 := nil;
end;

// Saludos

delphi.com.ar 14-07-2004 17:41:22

Uno mas :D... Te recomiendo este mensaje: http://www.clubdelphi.com/foros/show...56&postcount=2

Saludos!


La franja horaria es GMT +2. Ahora son las 11:58:11.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi