limpiar todos los valores del formulario

[cisterpe]

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;