Статьи Королевства Дельфи


L3_pas - часть 3


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.




Начало  Назад  Вперед