Форум: "Основная";
Текущий архив: 2005.03.27;
Скачать: [xml.tar.bz2];
ВнизPopup Menu Найти похожие ветки
← →
Checist [root] (2005-03-12 12:08) [0]Программно добавляю итем в PopupMenu, как привязать на его событие OnClick выполнение процедуры ExecProc
← →
Navi (2005-03-12 12:28) [1]procedure TForm1.ExecProc(Sender: TObject);
begin
ShowMessage((Sender as TMenuItem).Caption);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
MenuItem: TMenuItem;
begin
MenuItem:= TMenuItem.Create(PopupMenu1);
MenuItem.Caption:= "New Item Caption";
MenuItem.OnClick:= ExecProc;
PopupMenu1.Items.Add(MenuItem);
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.03.27;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.036 c