Главная страница
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.034 c
14-1081925575
Мараканец
2004-04-14 10:52
2004.04.11
Блокировка данных....


1-1082614293
Draught
2004-04-22 10:11
2004.04.11
Реакция TEdit на нажание клавиш


14-1081797439
RealRascal
2004-04-12 23:17
2004.04.11
Как же называется эта мелодия....


4-1079367573
Vilux
2004-03-15 19:19
2004.04.11
Использование sendmessage


1-1082632603
КомофОнСамый
2004-04-22 15:16
2004.04.11
Печать через QuickReport текствого файла с предв. просмотром