Форум: "Основная";
Текущий архив: 2003.02.17;
Скачать: [xml.tar.bz2];
Вниз
ПОМОГИТЕ !!!! Вопрос по Pop Up меню. Найти похожие ветки
← →
DARKChris (2003-02-08 12:55) [0]Уменя есть процедура:
отрывок:
var
MyPopUp:TPopUpMenu;
Items:array[0..3] of TMenuItem;
begin
MyPopUp:=TPopUpMenu.Create(self);
for i:=0 to 3 do
begin
Items[i]:=TMenuItem.Create(self);
Items[i].Caption:=IntToStr(I);
MyPopUp.Items.Add(Items[i]);
end;
MyPopUp.PopUp(X,Y);
Как мне обработать нажатие на пункты данного меню ? Эта процедура срабатывает на нажати правой кнопки мыши.
← →
Романов Р.В. (2003-02-08 12:59) [1]Items[i].OnClick := Item1Click;
procedure TForm1.Item1Click(Sender: TObject);
begin
//
end;
← →
Palladin (2003-02-08 12:59) [2]назначь обработчик каждому пункту
Items[i].OnClick:=
← →
Cr@sh (2003-02-08 14:11) [3]Дополнение Романов Р.В. © (08.02.03 12:59)
Items[i].OnClick := ItemClick;
procedure TForm1.ItemClick(Sender: TObject);
begin
if (Sender as TMenuItem).name="aaa" then
...
if (Sender as TMenuItem).name="bbb" then
...
if (Sender as TMenuItem).name="ccc" then
...
end;
Вместо name можешь также заюзать caption если они не повторяются.
← →
Yea-Yea (2003-02-08 14:43) [4]
> Cr@sh © (08.02.03 14:11)
Дополнение:
Можно юзать теги, Items[i].Тег := i; (если они не повторяются)
← →
Cr@sh (2003-02-08 16:51) [5]2Yea-Yea
Дело вкуса, я name люблю, т.к. не повторяется 100%.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.02.17;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c
