Как поместить 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