مشاهده نسخه کامل
: mydelphi
26-08-2009, 15:33
با سلام من با استفاده از كد زير يك PopupMenu ساختم حالا مي خواستم بدونم چطور ميشه هنگاميه روي هر يك از گزينه ها مي رم caption اون رو به من بده
ar
_p: TMenuItem;
for i:=0 to 5 do
begin
_p := TMenuItem.Create(PopupMenu1);
_p.Caption :=1;
_p.Tag := GetTickCount;
PopupMenu1.Items.Add(_p);
end;
ar
_p: TMenuItem;
for i:=0 to 5 do
begin
_p := TMenuItem.Create(PopupMenu1);
_p.Caption :=1;
_p.Tag := GetTickCount;
PopupMenu1.Items.Add(_p);
end;