Скачать: CL | DM;

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

← →
zep ©   (2004-06-21 16:20) [0]

как в StringGrid отрабатывать на разных ячейках рахней OnClick
зарание спасибо.

---

← →
Amoeba ©   (2004-06-21 16:22) [1]

MouseToCell + F1

---

← →
zep ©   (2004-06-21 20:29) [2]

ну посмотрел я справку нашол только как при нажатии на ячейку на ней появлялась надпись
вот код
procedure TForm1.FormCreate(Sender: TObject);

begin
 StringGrid1.DefaultColWidth := 100;
end;
procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
 Column, Row: Longint;
begin
 StringGrid1.MouseToCell(X, Y, Column, Row);
 StringGrid1.Cells[Column, Row] := "Col " + IntToStr(Column) +
   ",Row " + IntToStr(Row);

end;
пытался изменить ну чтото у меня совсем не получилось
мне надо чтобы например при нажатии ячейки
StringGrid1.Cells[1,1]появлялась понелька
а при StringGrid1.Cells[2,2] она исчезала ну или типо того.

---

← →
begin...end ©   (2004-06-21 20:35) [3]

Ну так и показывай свои панельки.

TFormName.StringGridNameMouseUp {или MouseDown} ...
var
 Col, Row: Integer;
begin
 StringGridName.MouseToCell(X, Y, Column, Row);
 if (Column = 1) and (Row = 1) and {панелька не показана} then
   // показываем панельку
 else if (Column = 2) and (Row = 2) and {панелька показана} then
   // прячем панельку
end;

---

← →
begin...end ©   (2004-06-21 20:38) [4]

> [3] begin...end ©   (21.06.04 20:35)


var
 Column, Row: Integer;

---

← →
san   (2004-06-21 21:19) [5]

При onClick проверяй та ли ячейка которая тебе нужна или не та.

---

← →
zep ©   (2004-06-21 21:32) [6]

все спасибо разобрался

---

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

Скачать: CL | DM;



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