Asignacion a un Variant

[gersonmaba]

Hola, ecfisa

Muchas gracias, por tu colaboracion, Osea creo que entendi tu codigo, pero no veo la forma muy clara de adaptarlo a mi necesidad. para capturar una propiedad en un evento.

Código Delphi [-]
procedure TForm1.EditEnter(Sender: TObject);
 begin 

// como Capturo aqui por ejemplo el NAME o el TEXT del 
//objeto Edit en el cual se dio Enter. 

end;

[ecfisa]

Hola.

Código Delphi [-]
procedure TForm1.EditEnter(Sender: TObject);
begin
  with TEdit(Sender) do
    ShowMessage(Name + #10#13 + Text + #10#13 + ClassName + #10#13 + IntToStr(Left) + #10#13 +  // ...
    );
end;

Saludos.

[gersonmaba]

Hola

ecfisa, Muchas Gracias, por tu gran colaboracion, pero tengo una ultima pregunta, necesito tambien obtener las propiedades de otro objetos creados dinamicamente. de la forma en la que lo lo estoy haciendo es, muy larga y me gustaria saber si ahi una solucion mas puntual o mas inteligente. pues es mi primera vez trabajando de este modo. lo hago de la siguiente forma.

For i:=ComponentCount -1 downto 0 do // Recorro Todos Los Componentes del FORM
begin
if (Components[i].Name = 'cxDBLC_Base') or (Components[i].Name = 'cxDBLC_Fac') // Resulta que esto puede ser 1 o mucho de acuerdo a lo que el usuario escoja.
Components[i].text;
end;

Es que quiero explorar otra solucion, pues esta me parece un poco pesada ejecutar y armar los nombres(Traidos de la BD) cada vez que se ejecute el evento. no ahi alguna forma mas puntual. Muchas Gracias.

[ecfisa]

Hola gersonmaba.

Si cxDBLC_Base, cxDBLC_Fac, ..., cxDBLC_ZZZ son del mismo tipo, podés evaluar la propiedad ClassType:

Código Delphi [-]
procedure TForm1.btnClassTypeClick(Sender: TObject);
var
  i: Integer;
begin
  for i:= ComponentCount - 1 downto 0 do
    if Components[i].ClassType = TEdit then
      TEdit(Components[i]).Text:= 'Nuevo Texto'; // Text = 'Nuevo Texto'
end;

Si son de diferentes tipos pero comparten una misma propiedad como por ejemplo Caption, podrías hacer:

Código Delphi [-]
uses TypInfo;
{pone la propiedad Caption = '' en todos los componentes que la posean }
procedure TForm1.btnRTTIClick(Sender: TObject);
var
  i: Integer;
  PropInfo: PPropInfo;
begin
  for i:= ComponentCount - 1 downto 0 do
  begin
    PropInfo:= GetPropInfo(Components[i], 'Caption');
    if PropInfo <> nil then
      SetStrProp(Components[i],PropInfo, ''); // Caption = ''
  end;
end;

Usando esta última forma (RTTI), podés ir bastante más lejos que lo que hace este simple ejemplo.

Saludos.

[gersonmaba]

Si Tienes muchas Razon ecfisa me pondre a explorar y a aplicar esta forma, Mil Gracias por tu gran Colaboracion.

Gracias.

[ecfisa]

Hola gersonmaba.

Si querés empezar a interiorizarte sobre RTTI te paso unos enlaces:

Run-Time Type Information In Delphi (artículo)

Blog de Neftalí (ejemplo muy completo)

Buscando vas a encontrar mucho mas material sobre el tema.

Un saludo.