Карта сайтаСсылкиКонтакты

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

PDF Печать
Статьи

Как поместить TMenuItem справа на форме.

Скажем, мы имеем 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;

Автор: http://www.delphi3000.com


 

Добавить комментарий


Защитный код
Обновить