是这样的
我想在PageControl1 上面的分页TabSheet1  上面 动态创建 edit组件,请问怎样实现?代码

解决方案 »

  1.   

    原来有两贴!我刚刚回了一个分低的贴!这贴分数高!幸亏我眼力好!在TabSheet1上点鼠标看效果procedure TForm1.TabSheet1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
      with TEdit.Create(Self) do begin
        Top := Y;
        Left:= X;
        Width := 100;
        Height:= 20;
        Name := Format('MyEdt%.3d%.3d',[X,Y]);
        Text := Name;
        Parent:= TTabSheet(Sender);
        Show;
      end;
    end;
      

  2.   


    procedure TForm1.Button1Click(Sender: TObject);
    var Edit1:TEdit;
    begin
      Edit1:=TEdit.Create(Self);
      Edit1.Parent:=TabSheet1;
      Edit1.Height:=20;
      Edit1.Width:=100;
      Edit1.Left:=0;
      Edit1.Top:=0;
    end;
      

  3.   

    procedure TForm1.TabSheet1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
      with TEdit.Create(Self) do begin
        Top := Y;
        Left:= X;
        Width := 100;
        Height:= 20;
        Name := Format('MyEdt%.3d%.3d',[X,Y]);
        Text := Name;
        Parent:= TabSheet1;        //--这句最重要,否则就跑别的地方去了
        Show;
      end;
    end;