Amigos del foro, estoy trabajando en una función que me permita manipular propiedades de controles diferentes como
TEdit
TcxCurrencyEdit
TsDateEdit
y no me esta resultando por eso necesito de ustedes aquí La función
Código Delphi
[-]procedure OnOfReadOnly(Ctrls: array of TWinControl; const Enabled: Boolean);
var
i: Integer;
begin
for i:= Low(Ctrls) to High(Ctrls) do
begin
if Ctrls[i] is TEdit then
begin
if Enabled = True then
begin
Ctrls[i].Color := $00FEEAD3;
Ctrls[i].ReadOnly := Enabled;
end else
begin
Ctrls[i].Color := clWhite;
Ctrls[i].ReadOnly := Enabled;
end;
end else
begin
if Ctrls[i] is TcxCurrencyEdit then
begin
end else
begin
if Ctrls[i] is TsDateEdit then
begin
end;
end;
end;
end;
end;
y para utilizarlo sería así...
Código Delphi
[-]procedure TFProductos.Button1Click(Sender: TObject);
begin
OnOfReadOnly([Edit1, cxCurrencyEdit1, TsDateEdit],True);
end;
Lo que quiero es cambiar el color del edit o el cxCurrencyEdit, etc y protegerlo contra escritura activando la propiedad
ReadOnly mediante una función.