国庆快乐.请问一下如何自绘tsplitter的分割条?不用控件.就像迅雷那样.画个渐变图.

Question

国庆快乐.请问一下如何自绘tsplitter的分割条?我不用三方控件
颜色改变设计一个color就行.但是我想画个图上去呢?就像迅雷那样.画个渐变图.多好看啊..

Answer 1

放个panel也可以，通过mouse move事件实现对两边宽度的调整

Answer 2

用TPanel控件吧，在Panel上放个TImage控件，然后通过TTimer控件对其控制进行改变，得到你想要的效果。

Answer 3

有没有从tsplitter继承下来自绘的代码？

Answer 4

procedure TForm1.Splitter1Paint(Sender: TObject);
var
  R: TRect;
begin
  R := Splitter1.ClientRect;
  Splitter1.Canvas.Brush.Color := clRed;
  Splitter1.Canvas.FillRect(R);
end;