Скачать: CL | DM;

Помоги спецы!!!   Найти похожие ветки 

← →
Лариса   (2004-12-04 09:54) [0]

Здравствуйте, спецы. Я навичок в Дельфи, поэтому обращаюсь к вам за помощью. В моей проге можно программно в PopupMenu добавляются пункты в SubMenu, (с этим все нормально) а вот как мне удалить какой то пункт после создания, и как назначить на созданый пункт procedure

Буду очень благодарна за помощь

---

← →
Sun bittern ©   (2004-12-04 10:14) [1]

Назначить событие:
В Public формы например написать

public
 procedure MyClick(Sender: TObject);

Далее

procedure TForm1.MyClick(Sender: TObject);
begin
... Мой код ...
end;

ПунктМеню.OnClick := MyClick;

Удалить пункт по клику мышки
 if Sender is TMenuItem then
   TMenuItem(Sender).Free;

---

← →
Лариса   (2004-12-04 10:27) [2]

Sun bittern
Спасибо, все работает. :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c