Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [Delphi7]. Использование компонента MaskEdit


Автор: DRAGON88 20.4.2009, 10:25
Вроде начал решать задачку по Delphi. Друг попросил. Застрял, дальше не получается.

Вот сама задача:


На форме располагаются компоненты: таблица StringGrid 4х6, в первую ячейку которого занесена фамилия студента; четыре кнопки cо стрелками , , , ; редактор MaskEdit для отображения координат текущей ячейки и кнопка Close. Нажатие кнопок со стрелками приводит к перемещению в указанном направлении фамилии. Редактор позволяет ввести новые координаты ячейки в указанном формате и диапазоне с клавиатуры, а нажатие клавиши Enter приводи к перемещению фамилии в новое место. Остальные ячейки  таблицы при этом очищаются.

Добавлено @ 10:29
Вот пока начал, но дальше не идёт. Вот сам проект не доделанный

Автор: DRAGON88 20.4.2009, 10:41
Вот сам на данный момент код:

Код

procedure TForm1.FormActivate(Sender: TObject);
begin
StringGrid1.ColCount:=7;
StringGrid1.RowCount:=5;
StringGrid1.Cells[0,0]:='';
StringGrid1.Cells[1,0]:='1 столбец';
StringGrid1.Cells[2,0]:='2 столбец';
StringGrid1.Cells[3,0]:='3 столбец';
StringGrid1.Cells[4,0]:='4 столбец';
StringGrid1.Cells[5,0]:='5 столбец';
StringGrid1.Cells[6,0]:='6 столбец';
StringGrid1.Cells[7,0]:='7 столбец';
StringGrid1.Cells[0,1]:='1 строка';
StringGrid1.Cells[0,2]:='2 строка';
StringGrid1.Cells[0,3]:='3 строка';
StringGrid1.Cells[0,4]:='4 строка';
stringgrid1.Cells[1,1]:='Иванов Иван';
end;

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

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
ACol:=ACol+1;
if (ACol>5) then
begin
exit;
end
else
begin
stringgrid1.Cells[ACol,1]:='';
stringgrid1.Cells[ACol+1,1]:='Иванов Иван';
end;
end;



procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ACol:=ACol-1;
if (ACol<2) then
begin
exit;
end
else
begin
stringgrid1.Cells[ACol,1]:='';
stringgrid1.Cells[ACol-1,1]:='Иванов Иван';
end;
end;

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)