TZParse error???

[roman]

Evidentemente el error no está en el código que pones. Si este error surge durante la ejecución del programa tendrías que decirnos qué usas en el formulario TForm7, pues pareciera que algún componente o código ahí está causando el problema.

// Saludos

[franroju]

Bueno, esto es más raro de lo que pensaba. Descartemos que el error este en el TForm7. Paso a comentar lo que sucede.

El error surge solamente la primera vez que hago click en cualquier componente del TForm2 (que es el que llama al TForm7 al cual ya libere de culpas je).

Que quiere decir eso? Cuando ingreso al TForm2 y realizo operaciones sin usar el "click", es decir, invocando a TForm7 manejando el Tab y Enter, funciona perfecto. Es más, luego de que funcione de esa menera, puedo hacer click en las demás componentes y el error no sale mas.

Como ya dije, sólo aparece si la primera acción que hago en el TForm2 es un click.

No entiendo un pomo, ja.

En fin, si me ayudan, les agradecería. Sino, veré que se puede hacer.

Muchas gracias.

[roman]

¿Qué componentes tienes en Form2?

// Saludos

[franroju]

Ahi va el arbolito:

Form2

GroupBox1

DBGrid

DBNavigator

Panel2

Edit3

Edit4

Label3

Label4

GroupBox2

MainMenu

Panel1

BitBtn1

Edit1

Edit2

Label1

Label2

Panel3

BitBtn2

BitBtn3

[roman]

Ajá. Y el dbgrid y dbnavigator ¿a qué están conectados?

// Saludos

[franroju]

Están conectados a una Datasource de una Tabla, ambos (la tabla y el datasource) en un Datamodule, el cual se crea antes que cualquier Form.

[roman]

¿Hay algún evento asociado a esa tabla?

// Saludos

[franroju]

Le hago un Open a la tabla cuando se crea el Form, y después solo le aplico filtros con la propiedad Filter.

Código Delphi [-]
dm.clientes.Open;

Código Delphi [-]
procedure TForm2.Edit1Exit(Sender: TObject);
begin
  dm.clientes.Filter := 'id = '+Edit1.Text;
  dm.clientes.Filtered := True;
  Edit2.Text := dm.clientes.FieldByName('nombre').AsString + ' ' + dm.clientes.FieldByName('apellido').AsString;
  Edit3.SetFocus;
end;