limpiar todos los valores del formulario - Página 2

cisterpe · #21 17-09-2003

Bueno, situemonos

ya me rio por no llorar

Con esto he conseguido que cuando cierro y vuelvo a entrar me aparezca todo perdeterminado.

Ahora bien, dentro de este formulario que detruyo y creo, tengo 1 dataset y 1 query que la primera vez que ejecuto funcionan pero al destruir y volver a crear no funcionan

__cadetill · #22 17-09-2003

Bien!!

Ahora si pones un breakPoint en el OnCreate (donde lanzas la Query) passa siempre, verdad?

Si no es así.... mal rollo, estamos donde al principio (a no ser que no pase por alguna sentencia condicioinal

)

Si es así.... a no ser que no se ejecute por alguna sentencia condicional o que no contenga valores correctos (cosa rara porque se crea de 0 el Form).... no se me ocurre nada. Aunque podrías poner todo el código (sino es muy largo

) del OnCreate y lo miramos entre todos (un millon de ojos ven más que 2)

Pero asegurate que se ejecuta el OnCreate cada vez que llamas al formulario

cisterpe · #23 17-09-2003

Comprobado que pasa por el OnCreate cada vez que pincho para entrar en el formulario.

procedure TPresu.FormCreate(Sender: TObject);
begin
// Alineacion a la derecha
SysLocale.MiddleEast := True;
valor:=0;
Edit1.BiDiMode := bdRightToLeft;
Edit2.BiDiMode := bdRightToLeft;
Edit3.BiDiMode := bdRightToLeft;
Edit4.BiDiMode := bdRightToLeft;
Edit5.BiDiMode := bdRightToLeft;
Edit6.BiDiMode := bdRightToLeft;
Edit7.BiDiMode := bdRightToLeft;
Edit8.BiDiMode := bdRightToLeft;
Edit9.BiDiMode := bdRightToLeft;
Edit10.BiDiMode := bdRightToLeft;
Edit11.BiDiMode := bdRightToLeft;
Edit12.BiDiMode := bdRightToLeft;
Edit13.BiDiMode := bdRightToLeft;
Edit14.BiDiMode := bdRightToLeft;
Edit15.BiDiMode := bdRightToLeft;
Edit26.BiDiMode := bdRightToLeft;
Edit27.BiDiMode := bdRightToLeft;
Edit28.BiDiMode := bdRightToLeft;
Edit29.BiDiMode := bdRightToLeft;
Edit30.BiDiMode := bdRightToLeft;
Edit31.BiDiMode := bdRightToLeft;
Edit33.BiDiMode := bdRightToLeft;
Edit37.BiDiMode := bdRightToLeft;
Edit38.BiDiMode := bdRightToLeft;
Edit41.BiDiMode := bdRightToLeft;
Edit42.BiDiMode := bdRightToLeft;
Edit43.BiDiMode := bdRightToLeft;
Edit44.BiDiMode := bdRightToLeft;
Edit45.BiDiMode := bdRightToLeft;
Edit46.BiDiMode := bdRightToLeft;
Edit51.BiDiMode := bdRightToLeft;
Edit52.BiDiMode := bdRightToLeft;
Edit54.BiDiMode := bdRightToLeft;
Edit56.BiDiMode := bdRightToLeft;
Edit59.BiDiMode := bdRightToLeft;
Edit63.BiDiMode := bdRightToLeft;
Edit64.BiDiMode := bdRightToLeft;
Edit65.BiDiMode := bdRightToLeft;
// fin alineacion a la derecha

//esto lo puse pq como no cargaba
// pero sin esto la primera vez me carga el query y funciona
//o sea que esto no sirve para mucho
qobj.Active:=false;
qobj.sql.Clear;
qobj.SQL.add('Select * from objur order by nombre');
qobj.Open;
//fin query

end;

__cadetill · #24 17-09-2003

Esto no lo puedes hacer en diseño?

Cita:

Posteado originalmente por cisterpe
Edit1.BiDiMode := bdRightToLeft;
Edit2.BiDiMode := bdRightToLeft;
Edit3.BiDiMode := bdRightToLeft;
....
Edit65.BiDiMode := bdRightToLeft;
// fin alineacion a la derecha

Si no es así, vamos a reducir las lineas (aprovechando que todos se llaman igual menos en el número)

Código:

var
  i : integer;
begin
  for i:= 1 to 65 do
  begin
    TEdit(FindComponent('Edit' + IntToStr(i))).BiDiMode := bdRightToLeft;
  end;

mejor, verdad?

Lo que hacemos es buscar el componente mediante FindComponent casteandolo a un TEdit (que sebemos de antemano que lo es) y acceder a la propiedad que queremos.

Bueno, con lo que respecta a la Query, cuando dices que no te funciona... a qué te refieres? no hace el Open? hace el Open pero no se visualizan valores? hace el Open, visualiza valores pero son erroneos? Tienes la Query enlazada a algún componente DataAware para visualizar sus valores? La tierra es redonda? Mi mamá me mima?

cisterpe · #25 17-09-2003

Mi mama tambien me mima

En el edit 1 cuando introduzco 1 numero, tiene que hacer 1 busqueda y si no la encuentra abrirme 1 nuevo form

en el cual aparece 1 dbgrid con un "select *" (aclaro que el nuevo form se coge los datos del formulario que estamos tratando).

bien en cuanto reconstruimos el form le meto al edit 1 valor existente pero no lo encuentra y me saca el nuevo form con el dbgrid vacio

__cadetill · #26 17-09-2003

no termino de verlo claro. Si siempre pasa por las inicializaciones... no veo claro el que te funcione la primera vez y no las siguientes

Miraré de hacer alguna prueba y te cuento

cisterpe · #27 17-09-2003

Muchas gracias por tu interes