Ver Mensaje Individual
  #2  
Antiguo 03-07-2023
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Reputación: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Le he preguntado a chatgpt y dice esto:

Código Delphi [-]
var
  FormularioAbierto: Boolean = False;
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  if FormularioAbierto then
  begin
    Close;
    Exit;
  end;

  // Resto del código de inicialización del formulario
end;
Código Delphi [-]
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FormularioAbierto := False;
end;
Código Delphi [-]
procedure TFormMain.AbrirFormularioClick(Sender: TObject);
begin
  if not Assigned(Formulario) then
  begin
    Formulario := TFormulario.Create(Self);
    Formulario.Show;
  end
  else
  begin
    Formulario.Visible := True;
    Formulario.BringToFront;
  end;
end;
Responder Con Cita