Código Delphi [-]procedure TFPedido.FormCreate(Sender: TObject); begin if FPedido.Showing = True then BEGIN ShowMessage('Ya tienes Abierto este modulo!'); Abort; end; end;
procedure TFPedido.FormCreate(Sender: TObject); begin if FPedido.Showing = True then BEGIN ShowMessage('Ya tienes Abierto este modulo!'); Abort; end; end;