Как поместить TMenuItem справа у формы?
Falk0ner, вс, 06/07/2008 - 15:34.
Допустим, у Вас есть 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;
Windows;
procedure TForm1.FormCreate(Sender: TObject);
begin
ModifyMenu(MainMenu1.Handle, 0, mf_ByPosition or mf_Popup
or mf_Help, HelpMenuItem1.Handle, '&Help');
end;
Взято из http://forum.sources.ru
Отправить комментарий