Menejar un TypeCast con varios componentes

[dabas]

Si lo entendí bien creo que esto te servirá:

procedure TForm1.teditEnter(Sender: TObject);
begin
  (Sender as TTEdit).Color:=clRed;
  (Sender as TTEdit).Font.Color:=clMoneyGreen;
end;

y para la salida

procedure TForm1.teditEnter(Sender: TObject);
begin
  (Sender as TTEdit).Color:=clRed;
  (Sender as TTEdit).Font.Color:=clMoneyGreen;
end;

(Sender as TTEdit) -> lo he usado para reutilizarlo con todos los TEdit que quiera.


Hasta otra.