procedure

Question

Amigos.preciso da ajuda de voces para montar um procedure.por exemplo, preciso desabilitar um Tedit, um Tbutton e um item do TMAINMENUcomo fazer para criar um procedure q desabilite qualquer component...

Motta · Answer

Fernando vc precisa fazer um Typecast , pode ,creio , usar o ancestral TControl

procedure Tform1.desabilita(controle: TControl);
begin
controle.Enabled := false;
end;

Acho que funciona , n�o peguei bem o que se quer.

Fernando_ramos · Answer

amigo a id�ia � essa mesmo....funcionou 99�.....o unico problema �...quando aplico isso para um item do TMAINMENU o seguinte erro me retorna....[code:1:17095eb781]&#91;Error&93; Unit2.pas(44): Incompatible types: �TControl� and �TMenuItem�[/code:1:17095eb781]...

Fernando_ramos · Answer

pessoal alguem tem uma ideia?...

Bico · Answer

Bom dia.Fa�a o seguinte colega:Crie duas rotinas com o mesmo nome e defina-as como overload.[code:1:7b5cb2352a]    procedure desabilita(controle: TControl); overload;    procedure desabilita(controle: TMenuItem); overload;[/code:1:7b5cb2352a]A implementa��o de cada uma:[code:1:7b5cb2352a]procedure TForm1.desabilita(controle: TControl);begin  controle.Enabled := false;end;[/code:1:7b5cb2352a][code:1:7b5cb2352a]procedure TForm1.desabilita(controle: TMenuItem);begin  controle.Enabled := False;end;[/code:1:7b5cb2352a]Chamando as rotinas:[code:1:7b5cb2352a]procedure TForm1.Button1Click(Sender: TObject);begin  desabilita(Edit1);  desabilita(Teste1);end;[/code:1:7b5cb2352a]Atenciosamente,Fernando....

Motta · Answer

E que TMainMenu n�o � herdeiro de TControl.

Vc pode fazer ...

procedure Tform1.desabilita(obj: TObject);
begin
if obj is TControl then
TControl(obj).Enabled := false;
if obj is TMainMenu then
TMainMenu(obj).Enabled := false;
...
end;

� uma solu��o

Fernando_ramos · Answer

desculpe voltar em topico antigo, � pq estava viajando.

como base de teste amigo...

copiei e colei seu codigo...logico tirando os �...�, e apresentou o seguinte erro...

[Error] frmsplash.pas(130): Undeclared identifier: �TMainMenu�

se puder me ajudar...

Michael · Answer

O typecast n�o deve ser feito para [b:a714f55bad]TMainMenu[/b:a714f55bad], e sim [b:a714f55bad]TMenuItem[/b:a714f55bad].

procedure AtivarDesativarControle(Controle: TComponent; Ativar: Boolean);
begin
  if Controle is TControl then
    (Controle as TControl).Enabled := Ativar
  else if Controle is TMenuItem then
    (Controle as TMenuItem).Enabled := Ativar;
end;

Lembrando que vc pode usar Actions associadas a mais de um controle. E neste caso s� precisaria desativar a a��o e os controles ligados a ele tbm seriam automaticamente.

[]�s

Fernando_ramos · Answer

amigo MICHAEl, efetuei o mesmo teste , copiei e colei!!deu o seguinte erro![code:1:ba0bb04d14]&#91;Error&93; frmsplash.pas(130): Undeclared identifier: �TMenuItem�[/code:1:ba0bb04d14]...

Michael · Answer

Colega Fernando,Quando este tipo de erro ocorrer, a primeira coisa que vc deve fazer � ir no help do Delphi e procurar pelo identificador n�o declarado, no caso [b:5f781fd284]TMenuItem[/b:5f781fd284]. L� vc pode ver em qual unit ele est�.No nosso contexto, � a unit [b:5f781fd284]Menus[/b:5f781fd284]. Esqueci de citar no �ltimo post. Adicione-a, portando, � cl�usula [b:5f781fd284]uses [/b:5f781fd284]do seu arquivo.[]�s...