Delphi - база знаний


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


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



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

uses 
  Windows; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  ModifyMenu(MainMenu1.Handle, 0, mf_ByPosition or mf_Popup 
             or mf_Help, HelpMenuItem1.Handle, '&Help'); 
end;



Взято с Исходников.ru



Начало  Назад  Вперед