PDA

Ver la Versión Completa : ayuda Onchanging


alfgonso84
03-05-2007, 20:12:14
A ver si alguno de ustedes tiene idea de si esto que tengo en mente se puede hacer, generalmente el libro de Delphi en 14 dias me saca de la duda pero no especifica que no se pueda
Lo que pasa es que tengo una forma con un PageControl si no se han seleccionado determinadas opciones o tiene caso que pase a las demas pero tube que poner una ultima pestaña llamada configuracion para opciones especiales
el problema es que como esta hasta ahora no cambia a ninguna pestaña

if PageControl1.ActivePage = tbsPrimero then
begin
if query.IsEmpty then
begin
AllowChange := false;
showMessage('No se puede');
exit;
end;
end;

como decia esto esta en el OnChanging quero saber si hay alguna condicion para que a deerminadas pestañas si y a otras no

egostar
03-05-2007, 20:17:14
Y ya checaste que el Query no este vacio???

Esto solo te pasa en el primer Tab.

Salud OS.

Edito

En todo caso, deberías de pasar el control a otro tab, por ejemplo al segundo

Algo asi:


if PageControl1.ActivePage = tbsPrimero then
begin
if query.IsEmpty then
begin
AllowChange := false;
showMessage('No se puede');
PageControl1.ActivePage := tbsSegundo;
//exit; esto no creo se se requiera.
end;
end;

alfgonso84
03-05-2007, 20:22:57
Lo hace perfecto si se presiona un boton el query se llena y me permite cambiar a cualquiera de las pestañas para trabajar sobre la tabla

Pero en una de las opciones para crear datos nuevos nesesitas un consecutivo ese se genera en la ultima pestaña entonces nesesito que el allowchange sea true pero solo para una de las pestañas

alfgonso84
03-05-2007, 20:30:08
Super simple gracias y cuando este en segundo regrese a primero para que no te permita pasar a las demas mientras no llenes el query gracias