![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
тишина |
![]() ![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 8 Пол: Мужской Репутация: ![]() ![]() ![]() |
помогите описать динамическое создание меню, кнопки, панели получаются, меню так же прописываю, а оно не отображается, вот кусок из процедуры FormCreat:
Код procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin kol:=15; Caption:='Игра'; Color:=$00FC1B01; BorderStyle:=bsSingle; ClientWidth := CW*((kol div 4)+1); ClientHeight := CH*8; Menu:=MainMenu1; MainMenu1:=TMainMenu.Create(Form1); with MainMenu1 do begin Left:= 10; \\вот это вроде в свойствах меню нет, но надо же как-то Top:= 10; \\ задавать, где оно должно находиться :huh: Parent:=Form1; ParentBiDiMode:=True; Exit:=TMenuItem.Create(Form1.MainMenu1); with Exit do begin OnClick:=FormExit; Caption:='Выход'; end; Spravka:=TMenuItem.Create(Form1.MainMenu1.Items); with Spravka do begin Caption:='Справка'; About:=TMenuItem.Create(Spravka); with About do begin OnClick:=PrgAbout; Caption:='О программе'; end; Rules:=TMenuItem.Create(Spravka); with Rules do begin OnClick:=GameRules; Caption:='Правила'; end; end; end; Тегами для подсветки кода пользуйтесь |
![]() ![]() |
тишина |
![]()
Сообщение
#2
|
Группа: Пользователи Сообщений: 8 Пол: Мужской Репутация: ![]() ![]() ![]() |
в том-то и дело! надо обходится без визуального редактора, на этапе конструирования на форме ничего не должно находится, всё создаётся при запуске программы, с визуальным я бы уже давно всё сделала, чё там делать-то, но вот про динамическое создание нигде особо информации не найдёшь, а ваш текст, пожалуйста, с комментариями
|
![]() ![]() |
![]() |
Текстовая версия | 11.07.2025 20:47 |