TMenuItem

Question

Ol� a todos..Eu cria colocar mais um propriedade no MenuItem do MainMenu...[b:a22895fb35]property NameForm : string read FNameForm write FNameForm;[/b:a22895fb35]Eu teria que criar um novo componente?...

Afarias · Answer

E o q essa propriedade faria??T+...

Edsant · Answer

Serviria para eu colocar o nome do Fomulario correspondente.

Foi uma dica do [b:f19f8b3ab4]osocram[/b:f19f8b3ab4] passou.

[i:f19f8b3ab4]Por exemplo eu tenho um m�todo que ao iniciar a Tela Principal eu atribuo a todos os menuItem o OnClick deles. Para eu n�o ter que ficar fazendo codigo em todos os Menu Item para abrir meus forms. Eu fiz com que no nome do Menu Item ficasse assim �mn_�+�Nome da Class do meu form�. Dae a minha rotina pega o nome do Menu tira o �mn_� e pronto ele tem o nome da classe. Dae todas � so mandar abrir o form.

Imagina que eu n�o tenho codigo nenhum nos OnClick do meus Menu Item a unica coisa que tenho que fazer � criar um menu Item novo com a nomeclatura certa e pronto... o sistema ja sabe abrir ele. by osocram[/i:f19f8b3ab4]

Eu achei uma fun��o na net que faz o que ele falou, s� quem em vez de colocar o nome do form na propriedade Name, ele pega o nome na propriedade Hint...

Ent�o minha ideia � criar um propriedade especifica para colocar o nome do form.

Aguardo

Afarias · Answer

Vc quer criar uma propriedade nova mesmo podendo escolher entre (pelo menos) outras 2 propriedades q j� existem e q outros j� usam em seus projetos e por isso lhe indicaram??

N�o acha q est� procurando chifre em cabe�a de cavalo??

T+

Edsant · Answer

N�o acho q seria procurar chifre em cabe�a de cavalo, � mais para apreender como fazer...Obrigado.....

Afarias · Answer

Bom, criar um descendente de TMenuItem � t�o f�cil quanto:

  
  TMyMenuItem = class(TMenuItem)
  private
    fFormName: string;
  published
    property FormName: string read fFormName write fFormName;
  end;

Mas ai, vc tem q:

1) Criar os items de um menu via c�digo

ou

2) Criar seu substituto para o editor de menus padr�o do Delphi para permitir que vc crie em tempo de projeto os items como a sua classe e n�o TMenuItem

Outra coisa � q vc vai ter sempre q fazer um TypeCast nos items para a sua classe, a n�o se q vc defina um TMainMenu e TPopupMenu tb seus q defina os items como sua classe e n�o o TMenuItem padr�o

T+

Osocram · Answer

Amigo.Estou num apuro agora... Mas � assim em vez de criar uma propriedade para isso simplesmente utilize o Name dele para isso.crie um padr�o para vc... para mim eu uso �mn_�+Classe_Do_Formassim o nome nunca repete e com um simples StringReplace ou metodo que vc quiser para retirar o �mn_� vc ja tem a Classe do form que quer usar....

F�rum TMenuItem #375596