Evitar que un form se abra estando abierto

[Neftali [Germán.Estévez]]

Otra opción puede ser utilizar la propia variable del formulario.

Código Delphi [-]
procedure Tincio.BitBtn1Click(Sender: TObject);
begin
if not Assigned(FPedido) then begin
  FPedido:=TFPedido.Create(self);
  FPedido.Show;
end 
else begin
  ShowMessage('Ya tienes abierto este Módulo!');
end;

Al cerrar el formulario hay que asegurar se de colocar la variable a nil.

[[gluglu]]

... y por qué siquiera avisar de que lo tiene abierto ? Se muestra y ya está.

Código Delphi [-]
procedure Tincio.BitBtn1Click(Sender: TObject);
begin
  if not Assigned(FPedido) then FPedido := TFPedido.Create(self);
  FPedido.Show;
end;

... y en el caso de MDI o si se permite minizar el Form :

Código Delphi [-]
procedure Tincio.BitBtn1Click(Sender: TObject);
begin
  if not Assigned(FPedido) then FPedido := TFPedido.Create(self);
  FPedido.Show;
  if FPedido.WindowState = wsMinimized then
    FPedido.WindowState := wsNormal;
end;

Y edito y añado :

Como decía Neftalí, tienes que recordar poner la variable a nil en el OnClose de FPedido :

Código Delphi [-]
procedure TFPedido.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
  FPedido := nil;
end;

... o utilizar FreeAndNil.

[[enecumene]]

Muchas Gracias Neftali y Gluglu tambien me han servido sus sugerencias, muchas gracias...