Форум: "Основная";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];

Вниз

Курсор мыши в StringGrid???   Найти похожие ветки 

← →
Mishenka   (2004-03-10 21:43) [0]

Как в StringGrid"e узнать над какой ячейкой курсор мыши в данный момент?

---

← →
Гаврила   (2004-03-10 21:46) [1]

StringGrid1.MouseToCell

---

← →
P.N.P. ©   (2004-03-10 21:55) [2]

F1 Returns the row and column indexes of the cell that contains a point specified in screen coordinates

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
 X, Y: Integer);
var xx,yy:integer;
begin
xx:=StringGrid1.MouseCoord(x,y).X;
yy:=StringGrid1.MouseCoord(x,y).Y;
StringGrid1.Cells[xx,yy]:="s";
end;

---

← →
Goorus   (2004-03-11 12:45) [3]

В крайнем случае


procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
x:=X div StringGrid1.CellWidth;
y:=Y div StringGrid1.CellHeight;
StringGrid1.Cells[x,y]:="text";
end;

---

← →
wisekaa ©   (2004-03-11 12:57) [4]

> P.N.P. ©   (10.03.04 21:55) [2]

Потенцальную ошибку в своем коде видишь?

---

← →
wisekaa ©   (2004-03-11 13:02) [5]

> Mishenka   (10.03.04 21:43)

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
 X, Y: Integer);
var Col,Row:integer;
begin
StringGrid1.MouseToCell(X,Y,Col,Row);
if (Col >= 0) and (Row >= 0) then StringGrid1.Cells[Col,Row]:=IntToStr(Col)+"-"+IntToStr(Row);
end;

---

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

Форум: "Основная";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.032 c