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

Вниз

Как узнать выбранную ячейку в StringGrid.   Найти похожие ветки 

← →
ЯЯЯ   (2004-04-21 22:07) [0]

Сабж.
Нужно при создании StringGrid"a в run-time.

OnSelectCell := StringGrid_block(Sender, __col__, __row__);

---

← →
ЯЯЯ   (2004-04-21 22:07) [0]

Сабж.
Нужно при создании StringGrid"a в run-time.

OnSelectCell := StringGrid_block(Sender, __col__, __row__);

---

← →
Lena19   (2004-04-21 22:13) [1]

если я правильно поняла вопрос то :
StringGrid_block(Sender: TObject; ACol,
 ARow: Integer; var CanSelect: Boolean);

---

← →
Lena19   (2004-04-21 22:13) [1]

если я правильно поняла вопрос то :
StringGrid_block(Sender: TObject; ACol,
 ARow: Integer; var CanSelect: Boolean);

---

← →
ЯЯЯ   (2004-04-21 22:33) [2]

Нет, не Вы не правильно поняли :\


 private
   procedure StringGrid_block(Sender: TObject; Col, Row: Longint; var CanSelect: Boolean);

 var sg: Array of Array of TStringGrid;
 {...}

 SetLength(sg, 2);
 SetLength(sg[0], StrToInt(form1.exp_edit.text));
 SetLength(sg[1], StrToInt(form1.exp_edit.text));

 for i:=1 to ...
   sg[0, i-1]  := TStringGrid.Create(TTabSheet.Create(pg));
   with sg[0, i-1] do
   begin
          Name := "pare_matrix_"+ IntToStr(i);
          Parent := pg.Pages[i-1];
          Height := Form2.Height div 2;
          Align  := alTop;
          RowCount := StrToInt(Form1.krit_edit.text) + 1;
          ColCount := StrToInt(Form1.krit_edit.text) + 1;
          Options := Options + [goEditing];
          OnSelectCell := StringGrid_block(Sender, ACol, ARow, CanSelect); //*
   end;
 end;

 procedure TForm2.StringGrid_block(Sender: TObject; Col, Row: Longint; var CanSelect: Boolean);
 begin
   //
 end;

где //* вместо ACol, ARow я так понимаю нужно "sg.SelectCol", "sg.SelectRow", т.е. индексы на данный момент выделенной ячейки.

Надеюсь, более понятно проблему обрисовал.

---

← →
ЯЯЯ   (2004-04-21 22:33) [2]

Нет, не Вы не правильно поняли :\


 private
   procedure StringGrid_block(Sender: TObject; Col, Row: Longint; var CanSelect: Boolean);

 var sg: Array of Array of TStringGrid;
 {...}

 SetLength(sg, 2);
 SetLength(sg[0], StrToInt(form1.exp_edit.text));
 SetLength(sg[1], StrToInt(form1.exp_edit.text));

 for i:=1 to ...
   sg[0, i-1]  := TStringGrid.Create(TTabSheet.Create(pg));
   with sg[0, i-1] do
   begin
          Name := "pare_matrix_"+ IntToStr(i);
          Parent := pg.Pages[i-1];
          Height := Form2.Height div 2;
          Align  := alTop;
          RowCount := StrToInt(Form1.krit_edit.text) + 1;
          ColCount := StrToInt(Form1.krit_edit.text) + 1;
          Options := Options + [goEditing];
          OnSelectCell := StringGrid_block(Sender, ACol, ARow, CanSelect); //*
   end;
 end;

 procedure TForm2.StringGrid_block(Sender: TObject; Col, Row: Longint; var CanSelect: Boolean);
 begin
   //
 end;

где //* вместо ACol, ARow я так понимаю нужно "sg.SelectCol", "sg.SelectRow", т.е. индексы на данный момент выделенной ячейки.

Надеюсь, более понятно проблему обрисовал.

---

← →
ЯЯЯ   (2004-04-21 22:58) [3]

Вопрос снимается, полнейшую ерунду спросил :)

---

← →
ЯЯЯ   (2004-04-21 22:58) [3]

Вопрос снимается, полнейшую ерунду спросил :)

---

← →
Lena19   (2004-04-21 23:06) [4]

если реч идет о том что компилятор выдает ошибку на данную строку то делаем так :
OnSelectCell := StringGrid_block();
и ещо я бы зделала Col, Row :integer; они так выглядят при создании в процессе разработки

---

← →
Lena19   (2004-04-21 23:06) [4]

если реч идет о том что компилятор выдает ошибку на данную строку то делаем так :
OnSelectCell := StringGrid_block();
и ещо я бы зделала Col, Row :integer; они так выглядят при создании в процессе разработки

---

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

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

Наверх

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