Текущий архив: 2006.10.29;
Скачать: CL | DM;
Вниз
TPopupMenu Найти похожие ветки
← →
gidd (2006-10-14 10:08) [0]Проблема такая: На форме есть PopupMenu1, пытаюсь динамически определять нажатую менюшку, но во время выполнения вылетает ошибка доступа к памяти.
Вот код:
procedure TfMailClient.PopupMenu1Change(Sender: TObject; Source: TMenuItem;
Rebuild: Boolean);
begin
if Assigned(PopupMenu1) then
if Source.Caption = "копировать" then ShowMessage("ok");
end;
← →
Percent (2006-10-14 10:57) [1]См. событие OnClick у TMenuItem. В нем Sender - нажатый пункт меню.
← →
gidd (2006-10-14 11:34) [2]Спасибо, так все работает :)
Страницы: 1 вся ветка
Текущий архив: 2006.10.29;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.074 c
