Solucion a ensamblados en Delphi, una de ellas
Esta fue la que use, la que me haz indicado la voy a probar en pocos minutos.
Gracias.
procedure ActivateControls(SetTo: string; const ControlsToChange: array of
TComponent);
var
I: integer;
PropInfo: PPropInfo;
begin
for I := Low(ControlsToChange) to High(ControlsToChange) do
//recorro el array de componentes
begin
PropInfo := GetPropInfo(ControlsToChange[i].ClassInfo, 'Text');
//obtengo el property info de la propiedad 'Text'
if Assigned(PropInfo) then
//devuelve nil en caso de que no exista
begin
form1.caption:=GetStrProp(ControlsToChange[i], PropInfo);
//obtengo el valor de la propiedad 'Text'
SetStrProp(ControlsToChange[i], PropInfo, SetTo);
//seteo el nuevo valor
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ActivateControls('Deac', [Edit1, Edit2, Edit3]);
//setear el texto 'Deac' a los 3 edit
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ActivateControls('Act', [Edit1, Edit2, Edit3]);
//setear el texto 'Act' a los 3 edit
end;
|