Desabilitar Botões de Acordo com Menu

Delphi

02/06/2004

Quando abro o meu sistema tenho uma função que desabilita os menus de acordo com o Usuário.

Gostaria de Saber como faço para desabilitar Botões de Atalho quando um determinado menu por exemplo Cadastrar Aluno este desabilitado.

Obs.: O Botão que quero desabilitar é do tipo SpeedButton
Desde já obrigado


Giliard Abreu


Giliardabreu

Giliardabreu

Curtidas 0

Respostas

Motta

Motta

02/06/2004

vincule o método do menu e do botão a um TAction, desabilite a TAction que esta desabilita os controles


GOSTEI 0
Diorgenes175

Diorgenes175

02/06/2004

Você pode desabilitar pela classe dos componenetes. Assim:

For c := 0 To Self.ComponentCount - 1 Do
begin
If (Components[c].ClassName = ´SpeedButton´)Then
begin
If(Components[c].Tag = 1) Then
TMenuItem(Components[c]).Enabled := False;
end;
End;


Aos componentes que deseja desbilitar forneca o valor 1 a propriedade ´Tag´ e insira este código em uma procedure qualquer, mas desde que seja do formulário a ser desabilitado.

Se funcionar ou não, por favor responda.

Diórgenes Tavares
Gravataí - RS


GOSTEI 0
Fred

Fred

02/06/2004

Coloque todos os seu eventos de chamar formularios e relatorios numa ActionList, depois ligue todos os seus menus e botoes na actions, ai é so abilitar e desabilitar as action!!!


GOSTEI 0
Diorgenes175

Diorgenes175

02/06/2004

Na 6ª linha em vez de TMenuItem coloque TSpeedButton...desculpe o erro...

Diórgenes Tavares
Gravataí - RS


GOSTEI 0
POSTAR