更改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;