请问GROUPBOX的边框色怎么自定义。(10分)

请问GROUPBOX的边框色怎么自定义。

没人会

我是不会的，但是可不可以用其他的空件来代替，譬如说自己画一个

把StdCtrls.pas另存为自己系统的文件，然后修改：
procedure TCustomGroupBox.Paint;
;;;;;;;;;;;;;;;;
end else
Brush.Color := clWindowFrame; //修改这里
FrameRect(R);
if Text <> '' then
begin
if not UseRightToLeftAlignment then
R := Rect(8, 0, 0, H)
else
R := Rect(R.Right - Canvas.TextWidth(Text) - 8, 0, 0, H);
Flags := DrawTextBiDiModeFlags(DT_SINGLELINE);
DrawText(Handle, PChar(Text), Length(Text), R, Flags or DT_CALCRECT);
Brush.Color := Color;//修改这里/

接受答案了.