Manipula��o do TMainMenu

Question

Ol�!!Gostaria de saber como � poss�vel resolver o seguinte problema.Tenho que desenvolver o seguinte menu:ITEM1 ITEM2 ITEM3 ITEM4 ITEM5                                 ITEM6Estou usando o TMainMenu pa...

Developerb · Answer

...alguem saberia resolver tao problema!!...

Rui Lisboa · Answer

Explique melhor.Para faxer a separa��o coloca -...

Developerb · Answer

Eu tenho que construir um MENU da seguinte maneira!!

ITEM1 ITEM2 ITEM3 ITEM4 ITEM5................................ITEM6

O ITEM5 e o ITEM6 tem que haver um espaco entre eles, sendo que nao posso colocar nehum tipo de traco na propriedade CAPTIOIN.

Deve haver um jeito de fazer com que tenha o espaco sem prejudicar a forma original do menu.

O que eu ja fiz, adicionei varios ITEMS so que, se o usuario passar o mouse por cima do espaco, ele vera que tem botoes �ocultos�.

Sera que nao tem uma forma de colocar um ENABLED FALSE para esse botoes que fornecem o espaco!?!??!?!?! 8)

Adriano Santos · Answer

Tenta adicionar em runtime.Se tiver d�vidas, d� uma olhada no meu [url=//www.devmedia.com.br/visualizacomponente.aspx?comp=1073&site=3]artigo[/url]....

Massuda · Answer

Nos tempos do Windows 3.x costumava-se por o menu Ajuda no lado direito da barra de menu. Isso ainda � suportado pelo Windows. Use este c�digo...

function AlinharMenuItemADireita(const AItem: TMenuItem): Boolean;
var
    Info: MENUITEMINFO;
    S: string;
begin
    FillChar(Info, SizeOf(Info), #0);

    Info.cbSize := SizeOf(Info);
    Info.fMask := MIIM_TYPE;

    GetMenuItemInfo(AItem.Parent.Handle, AItem.Command, False, Info);

    Info.fType := Info.fType or (MFT_RIGHTJUSTIFY or MFT_STRING);

    S := AItem.Caption;
    Info.dwTypeData := PChar(S);
    Info.cch := Length(S);

    Result := SetMenuItemInfo(AItem.Parent.Handle, AItem.Command, False, Info);
end;

...coloque essa procedure na unit do seu form principal (nem precisa ser m�todo do form). Use assim...

// no evento OnShow do seu form
procedure TSeuForm.FormShow(Sender: TObject);
begin
  AlinharMenuItemADireita(SeuMenuItem);
  // todos os menuitem�s � direita de SeuMenuItem
  // ficar�o � direita na barra de menu
end;

Show de bola [b:642ff74b27]Massuda[/b:642ff74b27]. Fica bem diferente n�? Coisa de loko.

Adriano Santos · Answer

[quote:642ff74b27=�Massuda�]Nos tempos do Windows 3.x costumava-se por o menu Ajuda no lado direito da barra de menu. Isso ainda � suportado pelo Windows. Use este c�digo...[code:1:642ff74b27]function AlinharMenuItemADireita(const AItem: TMenuItem): Boolean;var    Info: MENUITEMINFO;    S: string;begin    FillChar(Info, SizeOf(Info), #0);    Info.cbSize := SizeOf(Info);    Info.fMask := MIIM_TYPE;    GetMenuItemInfo(AItem.Parent.Handle, AItem.Command, False, Info);    Info.fType := Info.fType or (MFT_RIGHTJUSTIFY or MFT_STRING);    S := AItem.Caption;    Info.dwTypeData := PChar(S);    Info.cch := Length(S);    Result := SetMenuItemInfo(AItem.Parent.Handle, AItem.Command, False, Info);end;[/code:1:642ff74b27]...coloque essa procedure na unit do seu form principal (nem precisa ser m�todo do form). Use assim...[code:1:642ff74b27]// no evento OnShow do seu formprocedure TSeuForm.FormShow(Sender: TObject);begin  AlinharMenuItemADireita(SeuMenuItem);  // todos os menuitem�s � direita de SeuMenuItem  // ficar�o � direita na barra de menuend;[/code:1:642ff74b27][/quote:642ff74b27]Show de bola [b:642ff74b27]Massuda[/b:642ff74b27]. Fica bem diferente n�? Coisa de loko....

Developerb · Answer

Ok!Agrade�o a aten��o e a ajuda  :lol:...

F�rum Manipula��o do TMainMenu #322394