Hola Jos�..
lo que quiero es que al hacer clic en el bot�n Cerrar, opcionalmente se graben algunos saldos ANTES de que se cierre el form. El tema es que al hacer clic, no se me est� disparando el evento onClic de ese bot�n.
Tengo esto en ese evento:
if not Turno then
begin
if (MessageDlg('Caja Diaria', '�Desea grabar el saldo de caja?',
mtConfirmation, mbYesNo, 0) = mrYes) then
begin
try
cSql:= 'insert into caja (fecha, codmoneda, importe)
values ('''+ FormatDateTime('dd.mm.yy',edtFecha.Date) + ''','+cboMoneda.
Value+','+ edtSaldo.Text+')';
DBMain.qry.SQL.Text:= cSql;
DBMain.qry.ExecSQL;
except
MessageDlg('Error', 'Hay error en los datos', mtWarning,
[mbOk], 0);
DBMain.fdb.Rollback;
end;
end;
end;
muchas gracias
chauuuuuuuu
----Mensaje original----
De: josea en artextrading.com
Fecha: 20/07/2010 02:49
Para: "Spanish version of Lazarus List"<lazarus-es en lists.lazarus.
freepascal.org>
Show quoted text 6 lines
Asunto: Re: [Lazarus-es] tbitbtn, bkClose
El lun, 19-07-2010 a las 12:26 -0300, Paola Bruccoleri escribi�:
> >
> Hola Jos�..
> y c�mo lo soluciono?? tendr� que poner un bot�n de aceptar? no es
lo que
> quer�a..... pero...
> chauuuuuuuuuuuuu
No entiendo la pregunta o cual es el problema ... si pones un boton
con
Kind = Cerrar deber�a cerrarte el formulario. �Qu� es lo que deseas
hacer en el evento click? ... Lo del Kind es simplemente para asignar
una imagen del resource general y el texto seg�n la traducci�n
cargada
Show quoted text 17 lines
en la aplicaci�n, as� te aseguras que todos los botones "cerrar" sean
iguales.
________________________________________________________________________
ARTEX TRADING S.A.
Jos� Antonio Cuello Principal
_______________________________________________
Lazarus-es mailing list
Lazarus-es en lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
