如何给一个SpeedButton按扭绘一个带色的边框.

Question

如题,请高手帮忙,大家提提方案也好啊

Answer 1

procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.Pen.Style := psSolid;
  Canvas.Pen.Color := clRed;
  Canvas.Rectangle(Rect(SpeedButton1.Left-1,SpeedButton1.Top-1,SpeedButton1.Left+SpeedButton1.Width+1,SpeedButton1.Top+SpeedButton1.Height+1));
  SpeedButton1.Flat := True;
end;

Answer 2

谢谢你的帮助,我的意思是自己开发一个带边框颜色的SpeedButton.