Criar procedure com estado dos Bot�es no Data Module

07/04/2013

Gostaria de Sabemos como fazer uma procedure no Data Module, onde posso colocar os estado dos bot�es do formulario.

Exemplo: Botao incluir :
btnIncluir.Enabled := True;
btnSalvar.Enabled := False;
btnEditar.Enabled := True;
btnExcluir.Enabled := True;

E pode fazer isso para todos os bot�es no Datamodule, afim de apenas instancia em cada form, pois estou desenvolvendo uma aplica��o um tanto grande em DATASNAP, e perco um tempo grande com os mesmo.

Se for possivel como instancia-los no evento onclick di bot�o

Flavio Silva

Curtir t�pico + 0

Responder

Posts

07/04/2013

Marco Salles

Boa noite Flavinho . Voc� pode varrer os componentes do um Container Habilitando e desabilitando seguindo o valor da chave
e da Tag definido para esses controles
Por exemplo .. Buton com Tag igual a Um <Incluir , Editar , Excluir> .. Button com Tag igais a dois (Salvar , Cancelar)

procedure Inibir(AOwner:TWinControl;T:TClass;const AChave:Boolean);
var
C:TComponent;
begin
for C in AOwner do
  if C is T then
    if C.tag = 1 then
       Tcontrol(C).Enabled:=Achave
    else
       TControl(C).Enabled:=not Achave;
end;

para utlizar basta chamar assim

Inibir(A instancia do Form ProPriet�rio,Classe dos Controles,false ou True);

tipo

Inibir(self,TButton,false);

[]sds

Responder

Gostei + 0