Cita:
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.