CustomGrid'de tıklanan kolonun Left değeri nasıl bulunur?

[aLonE CoDeR]

Selamlar.

CustomGrid ya da ondan türetilmiş herhangi bir gridde, tıklanan kolonun Left değerini nasıl bulabilirim?

[iqprog]

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
rRect : TRect;
begin
rRect := StringGrid1.CellRect(StringGrid1.Col, StringGrid1.Row);
Showmessage(IntToStr(pRect.Left));
end;


burada rRect.left senin istediğin değeri verir. fakat bu değer ekran üzerindeki koordinat değil hücrenin stringgrid üzerindeki koordinatıdır. Eğer hücrenin ekran üzerindeki left değerini almak istersen aşağıya bak,

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
rRect : TRect;
pPoint : TPoint;
begin
rRect := StringGrid1.CellRect(StringGrid1.Col, StringGrid1.Row);
pPoint := StringGrid1.ClientToScreen(Point(rRect.Left, rRect.Top));
Showmessage(IntToStr(pPoint.X));
end;

[aLonE CoDeR]

Teşekkürler işimi gördü.

Kolay gele..