Текущий архив: 2005.11.27;
Скачать: CL | DM;

Вниз

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;

---

Страницы: 1 вся ветка

Текущий архив: 2005.11.27;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.029 c