[[Ivanzinho]]

Empezado por MaMu

pero.... porque no?

Código Delphi [-]
procedure TForm1.TEdit1OnEnable(sender:TObjet);
begin    Color:=clWindow; end;
 
procedure TForm1.TEdit1OnDisable(sender:TObjet);
begin    Color:=clBtnface; end;

Porque no sería necesario, el código que pones haría lo mismo que :

Código Delphi [-]
Componente.Enabled := True;
Componente.Color := clWindow;
...
...
...
Componente.Enabled := False;
Componente.Color := clBtnFace;

Además, esos procedimientos los puedes programar perfectamente :

Código Delphi [-]
procedure TForm1.OnEnabled(Sender:TObject);
begin
  if Sender is TControl then
    begin
      (Sender as TControl).Enabled := true;
      (Sender as TControl).Color := clWindown;
    end;
end;

procedure TForm1.OnDisabled(Sender:TObject);
begin
  if Sender is TControl then
    begin
      (Sender as TControl).Enabled := false;
      (Sender as TControl).Color := clBtnFace;
    end;
end;

Pero los procedimientos anteriores no los consideraría eventos, podrían estar asociados a un evento como pulsar un botón, salir del componente, ... pero seríamos nosotros los que decidiesemos cuando se habilita y cuando no, y no el usuario.

Un saúdo.