Change cursor to hand in TreeView

[mojeabi]

با سلام

دوستان عزیز به کمکتون احتیاج دارم. من در برنامه ام از یک TTreeView استفاده می کنم. و می خوام هر موقع که روی یک نود Node از این درختواره می رم شکل کرسر به صورت hand(دست) تغییر پیدا کنه. من خاصیت کرسر خود درختواره رو hand گذاشتم ولی این طوری هر موقع موس روی treeview میره کرسر به صورت دست است ولی من می خوام فقط با رفتن روی نودها شکل اون تغییر کنه . لطفا منو راهنمایی کنین. با یک دنیا سپاس منتظر پاسخ جامع و کامل شما هستم.

[sasan_vm]

تابع GetNodeAt اگر در نقطه مشخص node ای باشد ان node را برمی گرداند در غیر اینصورت null.

این کد را در OnMouseMove شی TreeView باید قرار بدهید:


void __fastcall TForm1::TreeView1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
if ( TreeView1->GetNodeAt(X, Y) )
TreeView1->Cursor = crHandPoint;
else
TreeView1->Cursor = crDefault;
}
//---------------------------------------------------------------------------