Desabilitar Menu

Delphi

28/10/2004

Tem como desabilitar um menu para que o usuário não escolha uma opção, tipo enabled:=false;


Valeu a força !!

JR.


Jrjoliv2003

Jrjoliv2003

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

28/10/2004

Colega,

Exatamente da forma que citou, ou seja, basta referenciar o objeto pelo nome e atribuir o valor False à propriedade Enabled. Ex:

mnuProdutos.Enabled := false;



GOSTEI 0
Jrjoliv2003

Jrjoliv2003

28/10/2004

menu.enabeld:= false ?

Não encontrei isso não!!

Valeu a força!!

JR.


GOSTEI 0
Emerson Nascimento

Emerson Nascimento

28/10/2004

é assim... suponha que você tenha a seguinte estrutura no seu menu:

+---------------+--------------+----------+
|Arquivos       |  Editar      |  Exibir  |
+---------------+--------------+----------+
|Abrir          |Copiar        |Código    |
|Salvar         |Recortar      |Fonte     |
|Salvar como... |Colar         +----------+ 
+---------------+--------------+
|Importar       |
|Exportar       |
+---------------+
|Sair           |
+---------------+


Cada item do menu é um componente com um nome distinto.
Por exemplo: [b:e9a5395bde]Abrir[/b:e9a5395bde] se chama Abrir1, [b:e9a5395bde]Salvar Como...[/b:e9a5395bde] se chama SalvarComo1, etc.
Então basta fazer:
Abrir1.Enabled := False;
SalvarComo1.Enabled := True;

Entendido?


GOSTEI 0
Jrjoliv2003

Jrjoliv2003

28/10/2004

Não tem como desabilitar o menu interio de uma só vez?


Valeu a força!!

JR.


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

28/10/2004

Colega,

Sem querer entrar no mérito da utilizade, use:

var i: SmallInt;
begin
  for i:=0 to componentcount-1 do
    if Components[i] is TMenuItem then
      TMenuItem( Components[i] ).Enabled := false;
end;



GOSTEI 0
POSTAR