F�rum Contar objetos da tela #380090

25/06/2010

Amigos, bom dia!
Me deu um branco para resolver um pequeno problema.
Preciso contar todos os TMenuItem da tela.
Como fazer ?

Rodrigo Ferreira

Curtir t�pico

+ 0

Responder

Posts

25/06/2010

Rodrigo Ferreira

Parte eu j� lembrei como faz utilizando o Components, mas agora eu preciso pegar os captions dos objetos.

Responder

Gostei + 0

25/06/2010

Alan Souza

de um jeito bem gen�rico, assim:

function QtdeItens(form: TForm): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i := 0 to Pred(form.ComponentCount) do
    if (form.Components[i] is TMenuItem) then 
      Inc(Result);
end;

Responder

Gostei + 0

25/06/2010

Alan Souza

pra pegar os captions � s� usar cast:

variavelstring := TMenuItem(form.Components[i]).Caption;

Responder

Gostei + 0

25/06/2010

Rodrigo Ferreira

Obrigado Alan!
Acabei de lembrar...

Vim aqui s� para avisar que est� conclu�do, mas mesmo assim grat�ssimo!

Responder

Gostei + 0

25/06/2010

Marco Salles

Parte eu j� lembrei como faz utilizando o Components, mas agora eu preciso pegar os captions dos objetos.

Para Pegar o Caption de um MaimMenu Vc Faz assim

var
  I,j: Integer;
begin
with SeuMainMenu do
//varrendo os Items
for I := 0 to pred(Items.Count)  do
  begin
   Showmessage('Item : '+StringReplace(Items[I].Caption,'&','',[]));
   //varrendo os SubItems
   for J := 0 to pred(Items[I].Count)  do
     Showmessage('SubItems : '+Items[I].Items[j].Caption);
  end;
end;

Responder

Gostei + 0

30/06/2010

Carlos Mazzi

Valeu Rodrigao!

Responder

Gostei + 0