Динамическое создание объектов [D6, NT4]
peugeot605 © (2003-02-02 18:13:00)
В процессе выполнения необходимо создать массив TStringGrid и
по индексу отображать его элементы внутри панели Panel4 на форме
Form1.
Делаю так:
var sgcDetail : Array of TStringGrid;
...
SetLength(sgcDetail, NZak+1);
For k:=1 to NZak do begin
sgcDetail[k] := TStringGrid.Create(Panel4);
With sgcDetail[k] do begin
Align := alClient;
RowCount := 4;
ColCount := 2;
FixedRows := 1;
FixedCols := 1;
Visible := True;
Show;
end;
end;
Ничего не отображается. В чем бикоз?
uw (2003-02-02 18:24:00) [1]
sgcDetail[k].Parent := Panel4;
Наверх 
ЧАТ |
Орешник |
|
