Form.Components como Parametro

[Casimiro Noteví]

Recuerda poner los tags al código fuente, ejemplo:



Gracias

[ecfisa]

Hola xorc.

Primero te comento que estas líneas son redundantes:

Código Delphi [-]
  if sender is TComboBox then   // Es un TComboBox.
  begin 
    with sender as Tcombobox do //  ¿ Para que ?, si ya sabemos que es un TComboBox

Mejor sería:

Código Delphi [-]
  if Sender is TComboBox then  // Es un TComboBox.
  begin
    with TComboBox(Sender) do  // con el TComboBox hacer
    ...

Ahora, para que el procedimiento se le pueda aplicar a diferentes controls yo usaría RTTI:

Código Delphi [-]
...
uses TypInfo;

procedure TForm1.Parpadear(AHandle: THandle; AColor: string);
var
  Aux: TColor;
  TC: TControl;
  PInfo: PPropInfo;
begin
  TC:= FindControl(AHandle);
  PInfo:= GetPropInfo(TC.ClassType, 'Color');
  if PInfo <> nil then
  begin
    Aux:= GetOrdProp(TC, 'Color');
    SetOrdProp(TC, PInfo, StringToColor(AColor));
    Update;
    Sleep(100);
    SetOrdProp(TC, PInfo, Aux);
    Update;
  end;
end;

Ejemplo de llamadas:

Código Delphi [-]
...
  Parpadear(Panel1.Handle, 'clRed');
  Parpadear(ComboBox1.Handle, 'clLime');
  Parpadear(Edit1.Handle,'clBlue');
...

Saludos.

[xorc]

Excelente!!!.
ecfisa, es precisamente lo que estaba tratando de hacer.
No conocia lo del RTTI pero me acabas de abrir los ojos hacia una funcion que me será utili en muchas otras funciones. Gracias y sigan ayudando a los que consultamos.