Como evito abrir 2 veces el mismo form?

[ecfisa]

Hola daragor.

No uso Lazarus, pero supongo que este código tiene que funcionarte:

Código Delphi [-]
procedure ShowTheForm(FormClass: TFormClass);
var
  i: Integer;
begin
  i:= Screen.FormCount-1;
  while (i > 0) and not (Screen.Forms[i] is FormClass) do Dec(i);
  if Screen.Forms[i] is FormClass then
    Screen.Forms[i].Show
  else
    FormClass.Create(Application).Show;
end;

Ejemplo de llamada:

Código Delphi [-]
procedure Tfmain.musersClick(Sender: TObject);
begin
  ShowTheForm(TABM_users);
end;

Saludos.