Текущий архив: 2004.09.05;
Скачать: CL | DM;
Вниз
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.036 c
