Главная страница
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.05 c
1-1082539026
WebErr
2004-04-21 13:17
2004.04.11
Не могу сделать "друга" StringGrid у !


11-1068199443
RA
2003-11-07 13:04
2004.04.11
TScrollBar. Создаю, но надо Max, Min и Position.


6-1079581306
StPu
2004-03-18 06:41
2004.04.11
Кто знает ак загрузить банер


11-1059916530
Кладов
2003-08-03 17:15
2004.04.11
FakeVariants


1-1080287430
b0bi
2004-03-26 10:50
2004.04.11
Как создать объект в динамической памити?