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.