FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#3
|
|||
|
|||
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; |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Como configuro MySQL para trabajar en delphi? | desve | MySQL | 7 | 23-11-2006 20:04:59 |
Cómo trabajar con Rave Reports en Delphi 7 | bellota | Varios | 1 | 03-06-2006 04:05:16 |
Como Trabajar los listview en delphi 7 | Shidalis | Varios | 9 | 19-07-2005 16:03:49 |
Como Trabajar en Grupo Con Delphi 7 | carlosmoralesm | Varios | 7 | 30-03-2004 02:24:10 |
¿Como Trabajar Con Bases Dbase IV en Delphi 7? | josral | Conexión con bases de datos | 2 | 14-08-2003 15:40:33 |
|