第三方控件看的实在是头晕,请高手给完整的代码,能够实现在edit中单击画出的按钮后,按钮变成扁平,能够再好看些更好,分不够可以再加

解决方案 »

  1.   

    只是在edit中画按钮 :
    var
      t:tbutton;
    begin
      t:=tbutton.Create(edit1);
      t.Parent:=edit1;
      t.Name:='mybutton';
    end;
      

  2.   

    不想用tbutton,劳烦看清我说得话
      

  3.   

    好看的标准每个人都不同。
    你的标准?
    如果不用TButton,
    lz想用什么?
      

  4.   

    按钮画在哪?edit框内还是框外?
    按钮变成扁平?什么样?
      

  5.   

    var 
      t:TSpeedButton;
    begin 
      t:=TSpeedButton.Create(edit1); 
      t.Parent:=edit1; 
      t.Flat := true ;
      t.Name:='mybutton'; 
    end;
    这样就可以达到你的效果了 请试一下 
      

  6.   

    你也可以用RZ系列的按扭
    rzButton就是其中的一个
    你试试吧  也许能达到你想要的效果
      

  7.   

    用默认的话,其实把CTRL3D设置成FALSE就平了,不过难看点。还是继续推荐RZ。
      

  8.   

    var 
      t:tflatbutton; //Tspeedbutton 可以扁平
    begin 
      t:=tflatbutton.Create(edit1); 
      t.Parent:=edit1; 
      t.Name:='mybutton'; 
    end;
      

  9.   

    说的详细些,我想自己开发一个类似combobox的控件,实现在edit中画按钮(不是用tbutton或者tSpeedbutton来实现,虽然用按钮解决最简单)。如果想法有误,请给更好的意见
      

  10.   

    用个panel,上面放一个edit,然后edit靠左边,给右边留点距离,你可以在右边自己画个按钮,自己控制鼠标进去点击后要画的样子,想怎么画就怎么画,一般出来的效果就是不如TSpeedButton