PDA

View Full Version : یه سؤال در مورد ListView



moh_maj
سه شنبه 16 مرداد 1386, 16:35 عصر
با سلام به همه
من یه سؤال در مورد کار با ListView دارم اونم اینه که من مثلاً دو تا popup menu دارم و می خوام که وقتی بر روی یکی از گزینه های لیست راست کلیک کردم یکی از popup menu ها نمایش پیدا کنه و وقتی در قسمت خالی لیست راست کلیک کردم اون یکی رو نمایش بده.
به امید دیدار.

m-khorsandi
سه شنبه 16 مرداد 1386, 18:57 عصر
از رویداد OnContextPopup استفاده کن و کدی شبیه به کد زیر رو بنویس:


procedure TForm1.ListView1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
if ListView1.Selected = nil then
ListView1.PopupMenu := PopupMenu2
else
ListView1.PopupMenu := PopupMenu1;
end;


به اندازه کافی ساده هست، توضیح خاصی هم لازم نداره.