up

解决方案 »

  1.   

    最简单的方法是将一个TEdit控件和一个TButton控件封装成一个控件比较麻烦的方法是,继承TEdit,自己画按钮(OnPaint事件),自己画按钮效果
      

  2.   

    你可以通过TEdit和TButton合成一个控件,在创建的时候同时创建TEdit和TButton
    控制好位置就可以了,但create的时候一定要关联好TButton的OnClick事件,其实没有什么难的,要将TButton的OnClick事件放处理,不然你点击按钮没有反映的
      

  3.   

    简单一点 你先放一个TEdit放上之后在后边放一个小按钮 哈哈 不要扔砖头:)
      

  4.   

    自己定义个类,如下
    TBtnEdit=class(TEdit)
    private
      FButton:TButton;
    public
      constructor Create(AOwner:TComponent);override;
      destructor Destroy;override
    end;
    然后实现的时候如下
    constructor TBtnEdit.Create(AOwner: TComponent);
    begin
      inherited;
      FButton:=TButton.Create(Self);
      with FButton do 
      begin
        Left:=Self.Left+Self.Width;
        Top:=Self.Top;
        Height:=Self.Height;
        Caption:='...';
        Parent:=Self;
      end;
    end;destructor TBtnEdit.Destroy;
    begin
      FButton.Free;
      inherited;
    end;
    然后定义了新类必须注册,在初始化部分进行注册,如下
    initialization
      RegisterClass(TBtnEdit);
    最后调用
    procedure TForm1.Button1Click(Sender: TObject);
    var
      vBtnEdit:TBtnEdit;
    begin
      vBtnEdit:=TBtnEdit.Create(Self);
      with vBtnEdit do
      begin
        //其他操作
        Parent:=Self;
      end;
    end;
      

  5.   

    我的passport
    [email protected]
    谢谢啦