Повторное обращение с помощью с Меню

← →
Demon Ltd (2002-04-07 01:27) [0]

Мною был задан вопрос, но на него почти никто не ответил
(наверно когда я задавал вопрос, знающие люди были заняты)
Вот сам вопрос:
"Работа с меню. Для примера, у меня есть меню с
подменю - форма2, форма 3 и так далее. Когда я нажимаю в подменю
на форму 2, мне надо чтобы напротив формы 2 в подменю появилась
галочка и открылась вторая форма. А когда я повторно нажимаю
форма 2, чтоюы галочка исчезала и вместе с ней чтобы исчезала
и форма 2."

← →
aus (2002-04-07 02:33) [1]

procedure N1Click(sender: TObject); begin with Sender as TMenuItem do begin Checked := not Checked; Form2.Visible := Checked; end; end;

Повторное обращение с помощью с Меню Найти похожие ветки