Desabilitar Bot�es de Acordo com Menu

Question

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

Motta · Answer

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

Diorgenes175 · Answer

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

Fred · Answer

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!!!...

Diorgenes175 · Answer

Na 6� linha em vez de TMenuItem coloque TSpeedButton...desculpe o erro...Di�rgenes TavaresGravata� - RS...

F�rum Desabilitar Bot�es de Acordo com Menu #235833