Помоги спецы!!!

← →
Лариса (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
Спасибо, все работает. :)

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