[PashaXP]

Динамически создаю компоненты, как лучше в моем случае организовать перетаскивание компонентов???

Код:

T: TTabSheet; Edit: TEdit;  Lab: TLabel; QRLab: TQRLabel;
.......
For i:=1 to Form1.PageControl1.PageCount+1 do
  BEGIN
     for j:=1 to PG[i].Label_Count do
        begin
          Lab:= TLabel.Create(Self);
          Lab.Caption:=PG[i].Info_Label[j].Caption;
          Lab.Top:= PG[i].Info_Label[j].Top;
          Lab.Left:= PG[i].Info_Label[j].Left;
          Lab.Font.Size:=PG[i].Info_Label[j].Size;
          if PG[i].Info_Label[j].Style = 1 then Lab.Font.Style:=[fsBold];
          // Lab.Visible:=true;
          Lab.Parent:= PageControl1.Pages[i-1];
          Edit:= TEdit.Create(Self);
          Edit.Top:= PG[i].Info_Edit[j].Top;
          Edit.Left:= PG[i].Info_Edit[j].Left;
          Edit.Name:='Edit'+IntToStr(i)+IntToStr(j);
          Edit.Text:='';
          Edit.Parent:= PageControl1.Pages[i-1];
        end;
   END;