NewItem não está criando novo item em MainMenu

Delphi

29/03/2007

Amigos,

Numa aplicação em Delphi5 eu uso o código abaixo sem problemas para criar novos itens num MainMenu. Porém no Delphi2006 o novo item não aparece no menu, e também não dá nenhum erro. Alguem saberia dizer o que está errado?

procedure TfmMain.Clientes1Click(Sender: TObject);
var
  NewItem : TMenuItem;
begin
  if fmClientes = nil then
   begin
    NewItem := TMenuItem.Create(fmMain.MainMenu1);
    fmMain.MainMenu1.Items.Items[5].Add(NewItem);
    NewItem.Caption := ´&´+inttostr(fmMain.MainMenu1.Items.Items[5].Count-1)+´. Clientes´;
    NewItem.onclick := Clientes1Click;
    fmClientes:=TfmClientes.Create(nil);
   end;
  fmClientes.show;
end;



Aerreira

Aerreira

Curtidas 0
POSTAR