简单方案:1、2、见FlatStyle中TFlatComboBox组件的代码,由TCustomComboBox类派生;3、只有自定义排序;

解决方案 »

  1.   

    //Ctrl+C如下,Ctrl+V到设计期间的窗体
    object ComboBox1: TComboBox
      Left = 184
      Top = 56
      Width = 145
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      Text = 'ComboBox1'
    end
    object Panel1: TPanel
      Left = 162
      Top = 56
      Width = 185
      Height = 2
      BevelOuter = bvNone
      TabOrder = 2
    end
    object Panel2: TPanel
      Left = 168
      Top = 76
      Width = 185
      Height = 2
      BevelOuter = bvNone
      TabOrder = 3
    end
    object Panel3: TPanel
      Left = 181
      Top = 50
      Width = 5
      Height = 38
      BevelOuter = bvNone
      TabOrder = 4
    end
    object Panel4: TPanel
      Left = 327
      Top = 48
      Width = 5
      Height = 38
      BevelOuter = bvNone
      TabOrder = 5
    end
      

  2.   

    1)这个问题在设置时就可实现
    BevelKind=bkFlat;//变成平面的,但有边框
    BevelEdges=[];//去掉边框
      

  3.   

    1)这个问题在设置时就可实现
    BevelKind=bkFlat;//变成平面的,但有边框
    BevelEdges=[];//去掉边框
      

  4.   

    没有
    bevelkind
    beveledges怎么设置?
      

  5.   

    //Ctrl+C,Ctrl+V到设计期间的窗体?试没有
    //Ctrl+C,Ctrl+V到设计期间的窗体?试没有
    //Ctrl+C,Ctrl+V到设计期间的窗体?试没有
    //Ctrl+C,Ctrl+V到设计期间的窗体?试没有
    //Ctrl+C,Ctrl+V到设计期间的窗体?试没有
      

  6.   

    //Ctrl+C,Ctrl+V到设计期间的窗体?试没有是什么意思啊?我也在关注这个问题,,不太明白,我也是delphi5:(
      

  7.   

    to : zswang(伴水)(伤心中) 
      很好,不过太麻烦了,我又不是只用一个,我有N(N>= 100)个要用,你不是要累死我吧?哈哈
      
      为了能更快的完成任务我选择了flatstyle 。
      不知道有没有限制(千万不要运行一段时间后不能用了就好)?那位兄弟能告诉我?
      

  8.   

    function f(mComboBox: TComboBox): Boolean;
    begin
      Result := False;
      with TPanel.Create(mComboBox) do try //Top
        Width := mComboBox.Width + 4;
        Height := 2;
        Left := mComboBox.Left - 2;
        Top := mComboBox.Top;
        BevelOuter := bvNone;
        Parent := mComboBox.Parent;
      except
        Exit;
      end;
      with TPanel.Create(mComboBox) do try //Bottom
        Width := mComboBox.Width + 4;
        Height := 2;
        Left := mComboBox.Left - 2;
        Top := mComboBox.Top + mComboBox.Height - 1;
        BevelOuter := bvNone;
        Parent := mComboBox.Parent;
      except
        Exit;
      end;
      with TPanel.Create(mComboBox) do try //Left
        Width := 2;
        Height := mComboBox.Height + 4;
        Left := mComboBox.Left;
        Top := mComboBox.Top - 2;
        BevelOuter := bvNone;
        Parent := mComboBox.Parent;
      except
        Exit;
      end;
      with TPanel.Create(mComboBox) do try //Right
        Width := 2;
        Height := mComboBox.Height + 4;
        Left := mComboBox.Left + mComboBox.Width - 1;
        Top := mComboBox.Top - 2;
        BevelOuter := bvNone;
        Parent := mComboBox.Parent;
      except
        Exit;
      end;
      Result := True;
    end;procedure TForm1.Button1Click(Sender: TObject);
    begin
      f(ComboBox1);
    end;