динамическое создание Grid по событию ButtonClick.

← →
uses-mind.dll (2004-11-01 20:42) [0]

здравствуйте ув.мастера. уточню задачу:
запуск прораммы - форма с одной Button1 и одним Edit1.
нужно чтобы runtime выполнялось следующее:

при нажатии на кнопку (при чем значение StrToInt(Edit1.Text) = n) - появлеется Grid размером n*n с заполненными "шапочками" (названия "1".."n") и "боковыми шапочками" (названия "1".."n").

ещё: как бы так сделать, чтобы края формы точно совпадали с краями Grid, чтобы избежать скроллинга ? ...
не знаю, как это сделать :( . если кто поможет - мой респект.
заранее благодарен за советы.

← →
_student (2004-11-01 21:24) [1]

procedure TForm1.Button1Click(Sender: TObject);
var mygrid:TStringGrid;
n:integer;
begin
n:=5; // !
mygrid:=TStringGrid.Create(self);
mygrid.Parent:=self;
mygrid.ColCount:=n;
mygrid.RowCount:=n;
mygrid.DefaultColWidth:=20;
mygrid.DefaultRowHeight:=20;
mygrid.Width:=n*20+10;
mygrid.Height:=n*20+10;

end;

Дальше сам тренируйся

← →
uses-mind.dll (2004-11-02 01:37) [2]

огромное спасибо. это то, что мне нужно! а можно ли убрать вообще шапочку боковую? и можно ли писать надписи на верхней шапочке? главный вопрос КАК ? :) ... ещё неплохо было бы, если можно было бы сделать редактируемыми поля. расчитываю на вашу помощь. заранее благодарен за совет...

← →
Almaz © (2004-11-02 01:57) [3]

> а можно ли убрать вообще шапочку боковую? и можно ли писать
> надписи на верхней шапочке? главный вопрос КАК ? :) ...
> ещё неплохо было бы, если можно было бы сделать редактируемыми
> поля

1. Размер "боковой шапочки" задается свойством FixedCols, соответственно убрать ее: mygrid.FixedCold := 0;
2. Надписи можно писать везде для этого служит свойство Cells, например mygrid.Cells[1, 1] := "TEXT";
3. Сделать поля редактируемыми можно с помощью опции goEditing:
mygrid.Options := mygrid.Options + [goEditing];

Ну а самый универсальный способ ответить самому себе на вопросы "КАК?" - это набрать слово TStringGrid и нажать на нем клавишу F1 - все вышеизложенное мною легко находится в справке.

Удачи.

2 uses-mind.dll
Ну тебе повезло. Так быстро и так сразу решили для тебя задачу!
Получишь ПЯТЬ - ставь пиво _student и Almaz :)
Тут бывало некоторые несколько дней рыдали, что у них завтра экзамен (зачет, контрольная и т.д. и т.п.), но :(((

← →
uses-mind.dll (2004-11-02 03:55) [5]

2 Германн ©:
я не ради оценок задавал вопрос. просто делаю один интересный проектик, а дэльфёй не владею, по-этому прошу помощи в тех вопросах, на которые сам ответа не нашел.
2 _student и Almaz: ... огромное вам спасибо ребята. начинаю с сегодняшнего дня учить дэльфи, потому что идей масса, нужно научиться реализовывать в среде, т.к. в графах, таблицах и пр. расписываю реализацию задач без труда %) ... щас бы захавать рыбку из пруда с тем пиФком, которым я угостил бы вас :)

динамическое создание Grid по событию ButtonClick. Найти похожие ветки