[bajge]

Разработать приложение , которое содержит главное меню и всплывающее меню.
Для выбранного компонента должно всплывать контекстное меню, содержащее. Для другого компонента в это время контекстное меню должно выть отключено.
Предусмотреть возможность добавления и удаления подпунктов меню в один из пунктов меню.
я вообще не понял ничего .как я живу

[lmikle]

Свой код в студию или в раздел "Работа".

[bajge]

Код:

procedure TForm1.N2Click(Sender: TObject);
begin
halt
end;

procedure TForm1.N8Click(Sender: TObject);
begin
n8.Checked:=true;
n9.Checked:=false;
if n8.Checked=true then begin label1.Visible:=true;
edit1.Visible:=false;

end;
end;

procedure TForm1.N9Click(Sender: TObject);
begin
n9.Checked:=true;
n8.Checked:=false;
if n9.Checked=true then begin edit1.Visible:=true;
label1.visible:=false  ;
end;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
if n8.Checked=true then label1.Font.color:=clred else edit1.font.Color:=clred;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
if n8.Checked=true then label1.Font.color:=cllime else edit1.font.Color:=cllime;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
if n8.Checked=true then label1.Font.color:=clyellow else edit1.font.Color:=clyellow;
end;

end.

я чайник.

[Janom]

Ну а как же теги?!
Так код читать не реально!

Кстати классное условие :

Код:

if n8.Checked=true then label1.Font.color:=clred else edit1.font.Color:=clred;

[bajge]

я неправильно видимо вообще написал. подскажите пожалуйста как надо составить код программы для нее.