Форум: "Основная";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];

Вниз

PopupMenu Items   Найти похожие ветки 

← →
Adil   (2004-08-21 01:02) [0]

Програмно добавляю в ПопупМеню item-ы.
Как делать что бы при нажатии всех item-ов вызывал процедуру
myprocedure.

Где то месяц назад делал этого сам. А сейчас что то не мог:D

---

← →
KADAN ©   (2004-08-21 02:19) [1]

MenuItem.OnClick:=MyProcedure;

---

← →
Adil   (2004-08-21 15:06) [2]

Я тоже так делал не получилось.
Нужно было
procedure TForm1.salam(Sender: TObject);
begin
showmessage("salam");
end;

Потом
MenuItem.OnClick:=Salam;

---

← →
KADAN ©   (2004-08-21 15:24) [3]

procedure TForm1.FormCreate(Sender: TObject);
var m:TMenuItem;
begin
 m:=TMenuItem.Create(nil);
 m.Caption:="menu item";
 m.OnClick:=mclick;
 PopupMenu1.Items.Add(m);

end;

procedure TForm1.mclick(sender: tobject);
begin
 showmessage("menu item clicked!");
end;

---

← →
TUser ©   (2004-08-21 20:48) [4]

> Я тоже так делал не получилось.
> Нужно было
> procedure TForm1.salam(Sender: TObject);

Можно обмануть компилятор и приассигнить процедур не-оф-обджект.

var ne:TNotEvent;
begin
@ne:=@salamoleucom;
OnEvent:=ne;
end;

что-то вроде этого.

---

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

Форум: "Основная";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];

Наверх

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