Цитата:
|
Сообщение от HMR
...У меню есть свойство Break (это я знаю)...
|
Ну раз знаете, тогда попробуйте заменить процедуру выращивания формы на
Код:
procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
CreateMenu;
with PopupMenu1 do
for i:= 0 to Items.Count-1 do
Items[i].Items[10].Break:= mbBreak;
end;