Меню справа на форме

Скажем, мы имеем TMainMenu по имени MainMenu1 и HelpMenuItem в конце строки меню. При вызове обработчика события OnCreate меню будет выровнено справа.

uses
  Windows;

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

—

02.09.2016

coder

Меню справа на форме

Комментарии