ايجاد يكPopupMenu و يك سوال

[mydelphi]

با سلام من با استفاده از كد زير يك 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;

[CPUSatan]

شما باید از پیغام WM_MENUSELECT استفاده کنید، برنامه زیر را دانلود کنید:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید