delphi 有什么 "输入框" 控件 可以实现 背景 渐变色 效果 (图) !!!!!!!!!!!!! 急!!!!!!!!!!!!!!!!!

Question

delphi 有什么 "输入框" 控件 可以实现 背景 渐变色 效果!!!!!!!!!!!!! 急!!!!!!!!!!!!!!!!!就像 下面 .net 控件一样 :  
http://www.dnc.com.cn/productfile/img/060718123139344.pnghttp://www.dnc.com.cn/productfile/img/060718123139340.gif

Answer 1

继承下来自己画不就得了...
-------------------------------------
...此帖用 CSDN's forum Explorer 回地
还有可以关注一下这个：http://www.eastrise.net/bbs/
还有要升职了 哇哈哈哈高兴呀！！
CSDN论坛浏览器:http://CoolSlob.ys168.com/

Answer 2

AAFont 平滑特效字体控件包 V2.59
http://www.delphibox.com/article.asp?articleid=387

Answer 3

AAFont 平滑特效字体控件包 V2.59   这个控件不是 输入框 吧 ??????????

Answer 4

窗体是支持透明的
AlphaBlend:=tue
AlphaBlendValue:byte  default 255

Answer 5

创意、自由、灵活，超强的报表功能，
独特的双数据源连接，全功能的表格组件！http://www.anylib.com

Answer 6

把他的颜色属性 在代码中实现   用个timer   颜色的RGB 慢慢的 加  
这样可以吗？

Answer 7

sealonglyc()  你有看图片吗?

Answer 8

將輸入框設置爲透明的，在輸入框後面放一個 Image ，放一個需要的漸變效果的圖片即可。

Answer 9

找一个Windows 程序设计，好好看一下前面几章。
再来审视你这个问题，你会发觉这不是问题。你只要记住编辑框也是通过窗口，只是MS帮我们做好了这个样式。而窗口有的特性它都有，因为你完成可以截获它的WM_PAINT，然后绘制它的背景。不过你，还是先看我上面说的那本书吧。这才是最根本的解决办法。

Answer 10

linzhengqun(风。我回来了)  直接给给 出详细的 代码吧

Answer 11

完全代码，窗体逐渐变透明：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, StdCtrls;type
  TForm1 = class(TForm)
    TrackBar1: TTrackBar;
    Timer1: TTimer;
    Button1: TButton;
    ListBox1: TListBox;
    ComboBox1: TComboBox;
    procedure TrackBar1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.TrackBar1Change(Sender: TObject);
begin
   self.AlphaBlendValue:=self.TrackBar1.Max-self.TrackBar1.Position;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
    self.AlphaBlend:=true;
    self.TrackBar1.Min:=0;
    self.TrackBar1.Max:=255;
    self.TrackBar1.Frequency:=25;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
   self.TrackBar1.Position:=self.TrackBar1.Position+20;
end;end.