главное меню с опциями “Занесение” и “Закрытие окна”

[naty7773]

Нужна помощь в написании программы в Delphi.Извините,что так прошу.Сегодня за 2 пары сделала и сдала 3 программы.А эту дали дополнительно чтоб получить модуль.Сказали завтра сдать.Помогите пожалуйста написать,не поняла ее совсем,да и лишнего дня нет,чтоб не спеша сделать,делаю другие сейчас(((

Задание
На форме располагаются: таблица StringGrid 4х5, два набора радиокнопок с соответст-вующими надписями для выбора номеров строк и столбцов таблицы, главное меню с оп-циями “Занесение” и “Закрытие окна”. Выбор ячейки таблицы и опции «Занесение» приводит к появлению в данной ячейке названия группы. При этом в другой ячейке надпись исчезает. Опция «Закрытие окна» заканчивает программу.

[GetMax]

два набора радиокнопок с соответст-вующими надписями для выбора номеров строк и столбцов таблицы

Не очень понял какие надписи должны быть на RadioButton. Приведите пример.

Выбор ячейки таблицы и опции «Занесение» приводит к появлению в данной ячейке названия группы

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

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  Col := ACol;
  Row := ARow;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  With StringGrid1 do
  Begin
    Cells[Col, Row] := 'Занято'
  End;
end;

При этом в другой ячейке надпись исчезает

В какой другой ячейке? Какая надпись исчезает?

Опция «Закрытие окна» заканчивает программу.

Думаю достаточно написать в обработчике

Form1.Close()

[naty7773]

Спасибр большое!!!))Попробую сделать....потом отпишусь как получится.

А задания да непонятные,сама вот поэтому и не поняла как это делать и что нужно.Но вот такие нам дают номера.Не знаю откуда их она(препод) берет.Они все такие странные

[GetMax]

Рискну предположить, что вам надо на форму RadioButton'ы, каждый из которых будет отвечать за выбор номера строки/столбца на пересечении которых в ячейку будет заносится "название группы". Тогда вам нужно 9 RadioButton 4 из которых будет отвечать за выбор строк, а 5 - за выбор столбца.
Примерный вариант выбора строки будет выглядеть так

procedure TForm1.Button1Click(Sender: TObject);
Var
  Index : Integer;
  i: Integer;
   RBArray : array of TRadioButton;
begin
  SetLength(RBArray, 3);
  RBArray[0] := RadioButton1;
  RBArray[1] := RadioButton2;
  RBArray[2] := RadioButton3;
  Index := -1;
  for I := 0 to 2 do
    if RBArray[i].Checked then
    Begin
      Index := i;
      Break
    End;
  with StringGrid1 do
  Begin
    if (Index <> -1 )then
      Cells[0, Index] := 'Занято'
  End;
end;

Аналогично можно сделать для выбора столбца

[naty7773]

Я заполнять так пока начала примерно
Вот код

procedure TForm1.N1Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.N2Click(Sender: TObject);
var
stolbec, stroka:Integer;
var i,n:Integer;
begin
for i:=1 to 4 do
for n:= 1 to 5 do
StringGrid1.Cells[i,n]:='';


stolbec:= RadioGroup2.ItemIndex;
stroka:=RadioGroup1.ItemIndex;

StringGrid1.Cells[stolbec+1, stroka+1]:='группа';
end;

end.

Вроде сделала.Но если препод скажет немного не так(т.к не понятна сама суть задачи),переделаю,а если возникнут вопросы потом напишу )))

[Mad_Cat]

RBArray[0] := RadioButton1;

зачем так сложно то все???
TRadiogroup и все дела( и создавать item-Ы кодом)