مشکل با راست کلیک در Check list Box

[hojjatcroos]

سلام من می خواهم با راست کلیک در Check List Box آیتم هایی که موس رو آن ها است اننخاب بشه از دستور زیر استفاده می کنم جواب میده ولی وقتی یک جای خالی که آیتمی نداره راست کلیک کنید اخطار میده - اگه میشه کمک کنید.

CheckListBox1.Selected[CheckListBox1.ItemAtPos(MousePos,true)]=true

[جواد ملاولی]

سلام من می خواهم با راست کلیک در Check List Box آیتم هایی که موس رو آن ها است اننخاب بشه

سلام دوست عزیز. از این کد استفاده کن:

procedure TForm1.CheckListBox1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then
begin
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;
end;

[mafazel]

سلام
توی Help اش که توضیح داده. ItemAtPos اگر در اون نقطه چیزی نباشه 1- بر می گردونه.