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;
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;