FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Problema extraño con showmodal =S
Hola a todos, lo que sucede es que tengo un problema con la funcion showmodal. Yo tengo una forma que contiene un botón, el código de ese botón es:
Se supone que forma1 no debe poder entrar ni debe intrometerse para nada hasta que cierre forma2, el problema es que cuando hago cualquier acción en la forma2 (como dar de alta o dar de baja algo) esta se cierra y aparece la forma1!!. He estado checándolo por todos lados pero la vdd nos e que pueda ser, aquí les voy a dejar el código de mi botón de altas de la forma2, a ver si algo tiene que ver (aunque este problema lo tengo con cualquier boton)
Gracias por la atención XD Última edición por dec fecha: 15-11-2006 a las 01:11:29. |
#2
|
||||
|
||||
mmm no se que pasó no se muestra el código se ve horrible jeje, lo voya poenr otra vez :
Código Delphi [-]procedure Forma1.BitBtn1Click(Sender: TObject); begin Forma2.Showmodal; end; Código del botón de altas de la forma2 : Código Delphi [-]procedure Froma2.BitBtn1Click(Sender: TObject); var mensaje:integer; begin if (dbedit1.Text='') or (edit1.Text='') then begin mensaje:=Application.MessageBox('No deje el campo vacio. Gracias', 'Error de entrada'); end else begin try datamodule2.agrega_area.Parameters.ParamByName('nombre').Value:=dbedit1.Text; datamodule2.agrega_area.Parameters.ParamByName('id_departamento').Value:=edit1.Text; datamodule2.agrega_area.ExecSQL; dbgrid1.DataSource.DataSet:=datamodule2.consulta_area; datamodule2.consulta_area.Active:=false; datamodule2.consulta_area.Active:=true; dbgrid1.DataSource.DataSet.Last; except on E:Exception do begin E.Message:='error'; application.MessageBox('No puede haber claves repetidas.Gracias','Error de entrada'); end; end; end; end; |
#3
|
||||
|
||||
Veo que estas utilizando un BitBtn, comprueba la propiedad ModalResult del BitBtn. Si no quieres que se cierre el form debe tener el valor mrNone,
|
#4
|
||||
|
||||
Muchísimas gracias funciona perfeco, era muy sencillo sin embargo jamás se me hubiera ocurrido XD
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Problema extraño en FireBird | Sick boy | Firebird e Interbase | 4 | 20-10-2006 12:39:54 |
Showmodal desde MDI | pfsoft | Varios | 1 | 26-07-2006 09:07:15 |
Problema extraño con imagen en PDF (Rave) | RaulRuiz | Impresión | 0 | 12-05-2006 21:20:53 |
Error con ShowModal | el_barto | Varios | 7 | 04-06-2005 17:51:44 |
Extraño problema con Quick Report | cone220 | Impresión | 3 | 13-05-2004 16:29:11 |
|