Как поместить TMenuItem справа у формы?

Previous  Top  Next

    
 

 

Допустим, у Вас есть TMainMenu MainMenu1 и HelpMenuItem в конце панели меню (Menubar). Если Вызвать следующий обработчик события OnCreate, то HelpMenuItem сместится вправо.

Code:

uses

Windows;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

ModifyMenu(MainMenu1.Handle, 0, mf_ByPosition or mf_Popup

            or mf_Help, HelpMenuItem1.Handle, '&Help');

end;

 

 

©Drkb::01304

Взято из http://forum.sources.ru