Форум: "Основная";
Текущий архив: 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.039 c
