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

Динамическое меню   Найти похожие ветки 

← →
AlexandrKu   (2003-10-14 10:22) [0]

Вообщем вот 2 процедуры обработки динамического меню в первой сама обработка а во второй создание:
Она корректно работает когда добавляю только одну запись
мне нужно получить какое имя (Caption) щелкнули мышью или выбрали. Месяца 3 назад это писал получалось сейчас никак немогу вспомнить и сохранить забыл кто нибудь подскажет ну если не Caption то хотя бы индекс в подменю?

Procedure Tform1.RunMenuItems(Sender : TObject);
begin
messageDlg("fdgdfgdfg ",mterror,[mbOk],0);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
t:TmenuItem;
begin
{If t.Action.Execute then messageDlg("fdgdfgdfg",mterror,[mbOk],0);}
t:=TMenuItem.Create(self);
t.Caption:="f1";
RxMainMenu1.Items[3].add(t);
RxMainMenu1.Items[3].Items[RxMainMenu1.Items[3].Count-1].OnClick:=RunMenuItems;
end;

---

← →
v_ilya   (2003-10-14 10:38) [1]

А Sender тебе зачем????

Procedure Tform1.RunMenuItems(Sender : TObject);
begin
if TMenuItem (Sender).Caption = "f1" then
messageDlg("Нажали на пункт f1",mterror,[mbOk],0);
end;

---

← →
AleksandrKu   (2003-10-14 10:46) [2]

точно спасибо помню что через него а как
в прошлый раз часа 2 мучался изучал

---

← →
AleksandrKu   (2003-10-14 11:11) [3]

Немного нетак по умолчанию он подставляет &
Procedure Tform1.RunMenuItems(Sender : TObject);
begin
if TMenuItem (Sender).Caption = " &f1" then
messageDlg("Нажали на пункт f1",mterror,[mbOk],0);
end;
а так все работает спасибо еще раз

---

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

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



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