Veamos...
Supongamos que tu formulario es TForm1.
Código Delphi
[-]
type
TForm1 = class(TForm)
....
private
public
...
procedure xxxx;
procedure EnableButton(boton:TMSFMXToolBarButton; AEnable:Boolean);
End;
procedure TForm1.EnableButton(boton:TMSFMXToolBarButton; AEnable:Boolean);
begin
boton.Enable:=AEnable;
if Boton.Enable then
Boton.Opacity := 1
else
Boton.Opacity := 0.3;
end;
procedure TForm1.xxxx
begin
DataModule1.UniQueryConsultaDOC.Close;
DataModule1.UniQueryConsultaDOC.sql.Clear;
DataModule1.UniQueryConsultaDOC.sql.Add('select REGPAC, TIPODOCUMENTO,REGFICHA, INSTRUT, FICPAC from fichadoc');
DataModule1.UniQueryConsultaDOC.SQL.Add('where instrut = :INSTRUT and REGFICHA = :REGFICHA');
DataModule1.UniQueryConsultaDOC.ParamByName('INSTRUT').AsString := datamodule1.InstRut;
DataModule1.UniQueryConsultaDOC.ParamByName('REGFICHA').AsString := Label1.text;
DataModule1.UniQueryConsultaDOC.open;
while not DataModule1.UniQueryConsultaDOC.eof do
begin
EnableButton(TMSFMXToolBarButton5, SameText(DataModule1.UniQueryConsultaDOCTIPODOCUMENTO.AsString,'TRATAMIENTO') );
EnableButton(TMSFMXToolBarButton6, SameText(DataModule1.UniQueryConsultaDOCTIPODOCUMENTO.AsString,'EXAMEN'));
EnableButton(TMSFMXToolBarButton13, SameText(DataModule1.UniQueryConsultaDOCTIPODOCUMENTO.AsString,'LABORATORIO'));
EnableButton(TMSFMXToolBarButton17, SameText(DataModule1.UniQueryConsultaDOCTIPODOCUMENTO.AsString,'FICHA MEDICA'));
DataModule1.UniQueryConsultaDOC.Next;
end;
end;
Espero que ahora este claro.
Saludos cordiales