VPF::[Delphi7]. Использование компонента MaskEdit

DRAGON88

Дата 20.4.2009, 10:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 42
Регистрация: 20.11.2008

Репутация: нет
Всего: нет

Вроде начал решать задачку по Delphi. Друг попросил. Застрял, дальше не получается.

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

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

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

Это сообщение отредактировал(а) DRAGON88 - 20.4.2009, 10:32

Присоединённый файл ( Кол-во скачиваний: 4 )

Lab_3.rar 194,95 Kb

DRAGON88

Дата 20.4.2009, 10:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 42
Регистрация: 20.11.2008

Репутация: нет
Всего: нет

Вот сам на данный момент код:

Код


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;

Это сообщение отредактировал(а) DRAGON88 - 20.4.2009, 10:42

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »