求助：各位大大下面这种效果是怎么做出来的，是在 form 窗体上放了个什么控件啊？（很快放分）！

Question

求助：
各位大大下面这种效果是怎么做出来的，是在 form 窗体上放了个什么控件啊？
因为本论坛不能贴图，
所以请各位大哥到 delphi 盒子上帮我看看！
非常急！
谢谢各位大大！http://bbs.2ccc.com/topic.asp?topicid=221593

Answer 1

简单啊，上面一排是用toolbutton,用了比较大的imagelist而已
下面都是放一个个的image，加个label

Answer 2

下面一排排的第三方控件是ShapeButton，按钮的形状更图片是一样的。

Answer 3

That FORM maybe UES   'SUI'

Answer 4

各位大大请给个 ShapeButton 下载地址，好吗？
我怎么也找不到啊
我的email:[email protected]
谢谢！

Answer 5

自画背景
处理消息:WM_EARSEBACKGND

Answer 6

mzdot 大大
我很菜啊
WM_EARSEBACKGND请大大举个例子，好吗？
谢谢！

Answer 7

>可是他的窗体和我们平常的窗体不同啊？
 VCLSkin的里也见过这种类似皮肤>请给个 ShapeButton 下载地址
 Raize控件包里有RzShapeButton，加个非矩形的图片上去，看看是不是你要的那种效果
 http://www.2ccc.com/article.asp?articleid=2958

Answer 8

var ListViewOldWndProc:TWndMethod;procedure TForm1.OnCreate(Sender:TObject)
begin
  ListViewOldWndProc:=ListView1.WindowProc;
  ListView1.WindowProc:=Setbk;
end;procedure TForm1.Setbk(var Msg:TMessage);
begin
  if Msg.Msg=WM_ERASEBKGND then begin
    //画你需要的效果
    Msg.Result:=1;end
  else ListViewOldWndProc(Msg);
end;

Answer 9

谢谢 liangqingzhi 大大 和 mzdot 大大procedure TForm1.OnCreate(Sender:TObject)
begin
  ListViewOldWndProc:=ListView1.WindowProc;
  ListView1.WindowProc:=Setbk;
end;编译时提示：
undeclared identifier 'Setbk'mzdot 大大,我还有哪里没有写啊？
谢谢！