Como trabalhar com componentes que tenho em uma string.
Estou tentado passar parametros para alguns itens do Menu tais como deixa-los visivel/invisivel, mas o problema é que esta relação de itens está em uma variavel String, o Delphi até compila, mas na hora de mudar o estado do item da erro.
ex:
procedure TForm1.Button1Click(Sender: TObject);
var
ItemMenu : TMenuItem;
Texto : String;
begin
Texto:=Edit1.Text;
ItemMenu:=MainMenu1.Items.Find(Texto);
ItemMenu.Visible:=False;
end;
ex:
procedure TForm1.Button1Click(Sender: TObject);
var
ItemMenu : TMenuItem;
Texto : String;
begin
Texto:=Edit1.Text;
ItemMenu:=MainMenu1.Items.Find(Texto);
ItemMenu.Visible:=False;
end;
Paulo Cesar
Curtidas 0
Respostas
Adilsond
31/08/2003
TMenuItem(FindComponent(Edit1.Text)).Visible := False;
GOSTEI 0
Paulo Cesar
31/08/2003
TMenuItem(FindComponent(Edit1.Text)).Visible := False;
Obrigado Adilson, funcionou perfeitamente.... :D
GOSTEI 0