Сё, то

← →
Kair © (2003-01-20 20:24) [0]

Создаю (динамически) TMainMenu или TPopupMenu, но их не видно на форме. Вероятно потому, что не задаю им Items. Как это сделать?

← →
Kair © (2003-01-20 20:41) [1]

← →
Jacobs © (2003-01-20 20:44) [2]

По-моему это от того что у формы BorderStyle стоит значение
bsDialog

← →
Kair © (2003-01-20 20:48) [3]

>Jacobs ©
Нет, не из-за этого у меня bsSizeable

← →
gsu © (2003-01-20 20:50) [4]

>> Создаю (динамически) TMainMenu или TPopupMen
А ты их форме присвоил ?

← →
Kair © (2003-01-20 20:56) [5]

>gsu ©
Присвоил

← →
gsu © (2003-01-20 20:58) [6]

а элемент создал ?

← →
Kair © (2003-01-20 21:08) [7]

var
Form1: TForm1;
mm1: TMainMenu;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
mm1:=TMainMenu.Create(Self);
Form1.Menu:=mm1;
end;

end.

mm1:=TMainMenu.Create(Form1);
mi:=TMenuItem.Create(mm);
mi.Caption:="ff";
mm1.Items.Add(mi);
menu:=mm1;

>gsu ©
Спасибо

Ты чего, обращаешься к неинициализированной переменной или к чужой.

Сё, то Найти похожие ветки