StringGrid и MouseToCell

← →
John Doe © (2005-11-02 22:39) [0]

Добрый вечер.
Дело такое:
У меня имеется StringGrid,и когда я нажимаю на какую либо из его ячеек,мне надо чтоб выдавалось значение строки и столбца этой ячейки.

В обработчике OnMouseMove,есть переменные X,Y.
Которые затем я использую в MouseCoord,тем самым получая координаты столбца и строки.

Но в OnDbClick нет X и Y.
Потому приходится использовать процедуру GetCursorPos,но в этом случае он мне не выдает нужный рез-ат.

PS.Использовал и MouseToCell,все равно выдает,-1.

Вот код:

procedure TForm1.StringGrid1DblClick(Sender: TObject); var a: TPoint; b: TGridCoord; begin GetCursorPos(a); b:=StringGrid1.MouseCoord(a.X,a.Y); ShowMessage(IntToStr(b.x)); ShowMessage(IntToStr(b.y)); end;

← →
jack128 © (2005-11-02 23:11) [1]

procedure TForm1.StringGrid1DblClick(Sender: TObject); var p: TPoint; Col, Row: Integer; begin Win32Check(GetCursorPos(P)); P := (Sender as TStringGrid).ScreenToClient(P); //!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! TStringGrid(Sender).MouseToCell(P.X, P.Y, Col, Row); Caption := Format("%d; %d", [Col, Row]) end;

StringGrid и MouseToCell Найти похожие ветки