как указать строки и столбцы через popupMenu

[robin39]

Товарищи, помогите. Никогда с этим меню не работал. Нужно было В соответствии с вариантом создать программный проект отображения средствами компонента StringGrid матрицы заданного размера. Все это сделал. Тока мне нужно через это меню задать количество сток и столбцов. Как это осуществить???

[vovk]

кинуть на форму TPopupmenu даблклик по нему, создаём пункты, в событиях пунктов onclick пишем обработчик нужный. В свойстве Popupmenu у Stringgrid`а выбрать это меню, если знаеш как задать количество строк, то всё.

[robin39]

а если создать два поля edit. Одно поле для строк, другое для столбцов. К каждому привязать свое popupMenu. После того как данные введены, с помощью кнопки создавать матрицу. Как рассписать все это. Просто я уже привязывал popupMeny к Stringgrid, там слишком много расписывать.

[vovk]

Сообщение от robin39

а если создать два поля edit. Одно поле для строк, другое для столбцов. К каждому привязать свое popupMenu. После того как данные введены, с помощью кнопки создавать матрицу. Как рассписать все это. Просто я уже привязывал popupMeny к Stringgrid, там слишком много расписывать.

Просто я уже привязывал popupMeny к Stringgrid,

Это значит только то, что при клике правой кнопкой по Stringgrid будет открыватся ваше меню

там слишком много расписывать

ну незнаю 2 строчки это много?

StringGrid1.ColCount:=8;
StringGrid1.RowCount:=10;

ну или если хочется

StringGrid1.ColCount:=strtoint(edit1.Text);
StringGrid1.RowCount:=strtoint(edit2.Text);

или погодите StringGrid планируется создавать динамически?

[robin39]

Да, динамически

[vovk]

ну тогда наверно это popupMenu стоит для формы установить а создавать ничего сложного

......
type
  TForm1 = class(TForm)
..........
.... 
private
           procedure SGSetEditTxt(Sender: TObject; ACol, ARow: Integer; const Value: string);
.......


procedure TForm1.SGSetEditTxt(Sender: TObject; ACol, ARow: Integer; const Value: string);
begin
 (sender as TStringGrid).Cells[0,0]:='('+inttostr(ACol)+', '+IntToStr(ARow)+')';
 (sender as TStringGrid).Cells[1,0]:=Value;
 end;

//вот тут процедура onclick по пункту в PopupMenu
procedure TForm1.N1111Click(Sender: TObject);
begin
StringGrid1.ColCount:=strtoint(edit1.Text);
StringGrid1.RowCount:=strtoint(edit2.Text);
 with TStringGrid.Create(self) do
 begin
   name:='mainstringgrid';//имя чтобы потом можно было легче програмно обратится
   left:=0;//расстояние слева от края клиенской области формы
   top:= 20;//расстояние сверху от края клиенской области формы
   Width:=500;//  ширина
   Height:=300;//высота
   ColCount:=strtoint(edit1.Text);// устанавливаем количество колонок берётся из edit1
   RowCount:=strtoint(edit2.Text);// устанавливаем количество строк берётся из edit2
   Options:=[goEditing,goVertLine,goHorzLine,goFixedVertLine,goFixedHorzLine,goRangeSelect];//выбираем опции
    BevelEdges:=[beLeft,beTop,beRight,beBottom];
    BevelWidth:=1;
    BevelInner:=bvRaised;
    //ну и ещё выбираем свойства которые нужны прописываем обработчики событий и тп
    //для примера возмём процедуру при редактировании текста ячейки
    OnSetEditText:=SGSetEditTxt;
    Parent:=self;//выбираем где компонент будет отображатся
 end;
end;

[robin39]

Спасибо, ща попробуем.