- Код: Выделить всё
PanelDyn:=TPanel.Create(FrmAnketa);
PanelDyn.Name:='Panel_'+IntToStr(i);
PanelDyn.Parent:=ScrollBox1;
PanelDyn.Color:=clScrollBar;
PanelDyn.Top:=100;
PanelDyn.Height:=25;
PanelDyn.AnchorSideLeft.Control:=ScrollBox1;
PanelDyn.AnchorSideRight.Control:=ScrollBox1;
PanelDyn.AnchorSideRight.Side:=asrBottom;
PanelDyn.Anchors:=[akTop,akLeft,akRight];
PanelDyn.AnchorSideLeft.Control := ScrollBox1;
PanelDyn.AnchorSideRight.Control := ScrollBox1;
PanelDyn.AnchorSideRight.Side := asrBottom;
PanelDyn.Font.CharSet := RUSSIAN_CHARSET;
PanelDyn.Font.Color := clBlack ;
PanelDyn.Font.Height := -19 ;
PanelDyn.Font.Name := 'Times New Roman';
PanelDyn.Font.Pitch := fpVariable;
PanelDyn.Font.Quality := fqDraft;
PanelDyn.Font.Style := [fsBold];
PanelDyn.ParentColor := False;
PanelDyn.ParentFont := False;
PanelDyn.Visible:=True;
StringGridDyn:=TStringGrid.Create(FrmAnketa);
with StringGridDyn do
begin
Name:='StringGrid_'+IntToStr(i);
Parent:=ScrollBox1;
AnchorSideLeft.Control := ScrollBox1;
AnchorSideTop.Control := (FindComponent('Panel_'+IntToStr(i)) as TPanel);
AnchorSideTop.Side := asrBottom;
AnchorSideRight.Control := ScrollBox1;
AnchorSideRight.Side := asrBottom;
Anchors := [akTop, akLeft, akRight];
AutoFillColumns := True;
Left := 0;
Height := 86;
// Top := 239;
Width := 850;
Columns.Add;
Columns.Add;
with Columns[0] do
begin
Alignment := taCenter;
Font.CharSet := RUSSIAN_CHARSET;
Font.Color := clBlack;
Font.Height := -16;
Font.Name := 'Times New Roman';
Font.Pitch := fpVariable;
Font.Quality := fqDraft;
Font.Style := [fsBold];
SizePriority := 0;
Title.Caption := ' ';
Title.Color := 16777034;
Width := 25;
end;
with Columns[1] do
begin
Font.CharSet := RUSSIAN_CHARSET;
Font.Color := clBlack;
Font.Height := -15;
Font.Name := 'Times New Roman';
Font.Pitch := fpVariable;
Font.Quality := fqDraft;
Font.Style := [fsBold, fsItalic];
Title.Caption := ' ';
Title.Color := 16777034;
Width := 821;
end;
FixedCols := 0;
FixedRows := 0;
RowCount := 2;
ScrollBars := ssNone;
TitleFont.CharSet := RUSSIAN_CHARSET;
TitleFont.Color := clBlack;
TitleFont.Height := -13;
TitleFont.Name := 'Times New Roman';
TitleFont.Pitch := fpVariable ;
{ColWidths := (
25,
821
);}
end; //stringgrid
Не привязывается стринггрид к панел.
- Код: Выделить всё
AnchorSideTop.Control := (FindComponent('Panel_'+IntToStr(i)) as TPanel);
Если же писать так
- Код: Выделить всё
AnchorSideTop.Control := Panel0
где Panel0 - брошеный на форму панел, то привязки работают. Это баг или я не правильно делаю?