为工具栏添加背景的Delphi例子.rar

Delphi为窗体上的工具栏菜单，添加一个漂亮的背景图片，让窗体更美观，实现的方法如下：　　procedureTForm1.FormCreate(Sender:TObject);　　begin　　Abmp:=TBitmap.Create;　　Abmp.LoadFromFile(GetCurrentDir()'\background.bmp');　　ToolBar1.ShowCaptions:=True;　　ToolBar1.Flat:=True;　　end;　　procedureTForm1.ToolBar1AdvancedCustomDraw(Sender