更改Splitter控件颜色

通过自绘的方式来实现

procedure TForm1.spl1Paint(Sender: TObject);
var
  DrawPic :TPicture;
begin
  DrawPic := Tpicture.Create;
  DrawPic.Bitmap.Width := spl1.ClientWidth;
  DrawPic.Bitmap.Height := spl1.ClientHeight;


  DrawPic.Bitmap.Canvas.Pen.Color := $004D4D4D;
  DrawPic.Bitmap.Canvas.Brush.Color :=$004D4D4D;
  DrawPic.Bitmap.Canvas.Brush.Style := bsSolid;
  DrawPic.Bitmap.Canvas.Rectangle(spl1.ClientRect.Left,spl1.ClientRect.Top,spl1.ClientRect.Right,spl1.ClientRect.Bottom);
  Self.spl1.Canvas.Draw(0,0,DrawPic.Graphic);
  DrawPic.Free;
end;