Ver Mensaje Individual
  #4  
Antiguo 09-01-2007
Avatar de BuenaOnda
BuenaOnda BuenaOnda is offline
Miembro
 
Registrado: feb 2006
Ubicación: La Serena - Chile
Posts: 347
Reputación: 19
BuenaOnda Va por buen camino
Wink

Claro.. tienes que crear una instancia del objeto...

por ejemplo para limpiar todas las cajas de texto de un Form podria poner algo como esto :

Function LimpiarCajasDeTextos(Forma : TForm);
var
Caja : TEdit;
begin

FOR J:=0 TO Forma.ComponentCount - 1 DO
BEGIN
{ Limpiamos las Edits }
IF Forma.Components[J] IS TEdit THEN
BEGIN
Caja:=Forma.Components[J] as TEdit;
Caja.Text:='';
END;
END;
end;

obviamente debes poner en el uses de tu TDataModule, la libreria correspondiente para el Form (Forms) y para el TEdit...

Suerte espero que te sirva...
Responder Con Cita