FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
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; |
#2
|
||||
|
||||
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,
|
#3
|
||||
|
||||
Muchísimas gracias funciona perfeco, era muy sencillo sin embargo jamás se me hubiera ocurrido XD
|
Herramientas | Buscar en Tema |
Desplegado | |
|
|
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 |
|