и показать имеющиеся
Label2.Visible := Label4.Visible;
Label3.Visible := Label5.Visible;
Label6.Visible := Label7.Visible;
Label9.Visible := Label8.Visible;
end;
procedure TTbDefFr.Set_FDbInterface(const Value: TDbInterface);
begin
FDbInterface := Value;
end;
procedure TTbDefFr.Set_FpTInfoCategory(const Value: pTInfoCategory);
begin
FpTInfoCategory := Value;
apAutoID := True;
end;
procedure TTbDefFr.FormActivate(Sender: TObject);
Var
k : Integer;
wpTFieldInfo : pTFieldInfo;
begin
Label10.Show;
TbNameLbl.Caption := FpTTableInfo.sTableAttr.Values['sTableCaption'];
// ..прикрепить и показать имеющиеся поля
for k := 0 to FpTTableInfo.sFieldsL.Count - 1 do
begin
wpTFieldInfo := pTFieldInfo(FpTTableInfo.sFieldsL[k]);
TbFieldsListBox.Items.AddObject(
wpTFieldInfo.sFieldAttr.Values['sFieldCaption'],
Pointer(wpTFieldInfo));
end;
end;
end.
Содержание Назад Вперед