Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

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

 
ЯЯЯ   (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);


 
ЯЯЯ   (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]

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


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

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



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

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

Наверх




Память: 0.47 MB
Время: 0.074 c
14-1079425178
able
2004-03-16 11:19
2004.04.11
Люди, зацените сайт


3-1079002352
Deedlit
2004-03-11 13:52
2004.04.11
Поиск двойников


1-1079999039
@ng3L
2004-03-23 02:43
2004.04.11
Векторная карта ->>>> TXT файл..


1-1080295137
Хэтч
2004-03-26 12:58
2004.04.11
Как сделать, чтобы при нажатии на Button рисовалась стрелочка ?


14-1077351091
syte_ser78
2004-02-21 11:11
2004.04.11
некоректное определение матерью процессора