Ver Mensaje Individual
  #4  
Antiguo 17-10-2008
Avatar de Al González
[Al González] Al González is offline
In .pas since 1991
 
Registrado: may 2003
Posts: 5.610
Reputación: 32
Al González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en bruto
¡Hola!

No sé si aún es tiempo, pero mi sugerencia sería apoyarte en la función GetPropValue, si es que las propiedades a comparar son publicadas.

Código Delphi [-]
Uses
  TypInfo;

procedure TForm1.Button4Click(Sender: TObject);
begin
  If GetPropValue (Button1, 'Caption') =
  GetPropValue (Button2, 'Caption') Then
    ShowMessage ('Button1 y Button2 tienen el mismo texto.');

  If GetPropValue (Button2, 'Caption') <>
  GetPropValue (Button3, 'Caption') Then
    ShowMessage ('Button2 y Button3 tienen textos diferentes.');
end;

Anexé un archivo con el ejemplo completo.

Saludos.

Al González.

Última edición por Al González fecha: 08-01-2013 a las 05:26:17.
Responder Con Cita