اشاره گرماوس

[رهنورد2]

اگر بخواهیم وقتی ماوس روی یکی از ستونهای db gird برود شکل اشاره گر ماوس عوض بشود

چه باید کرد این شکل باید وقتی ماوس روی ان ستون رفت عوض بشودنه اینکه وقتی روی ان کلیک شود.

اصلا برای اینکه کاربر بفهمدکه برای اجرای یک رکورد باید روی یک ستون خاص کلیک کند چه باید کرد

[vcldeveloper]

می تونید از کدی مشابه کد زیر در رویداد OnMouseMove گرید مربوطه استفاده کنید:


procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
GridCoord : TGridCoord;
begin
GridCoord :=TDBGrid(Sender).MouseCoord(X,Y);
//If mouse pointer is on the third col
if GridCoord.X = 2 then
TDBGrid(Sender).Cursor := crHandPoint
else
TDBGrid(Sender).Cursor := crDefault;
end;