用Delphi做一个有颜色属性的按钮，该怎么处理

如果是自己开发一枝饥个带颜色属性的按猛丛返钮组件，可以打开Delphi，选择菜单的Component->New Component 来新建一个按钮组件，比如可以继承自 TButton，然后添加 Color 属性，相应的修改 canvas 绘制按钮段的代码。

以下是示例的代码片段：

type

TColorButton = class(TButton)

private

  FColor:TColor

  FCanvas: TCanvas

  IsFocused: Boolean

  procedure SetColor(Value:TColor)

  procedure CNDrawItem(var Message: TWMDrawItem) message CN_DRAWITEM

protected

  procedure 郑碰CreateParams(var Params: TCreateParams) override

  procedure SetButtonStyle(ADefault: Boolean) override

public

  constructor Create(AOwner: TComponent) override

  destructor Destroy override

published

  property Color:TColor read FColor write SetColor default clWhite

end

xe2中任何控件都是容器。所以，你可以把TImage放在tspeedbutton或button上，然后在左边的控件凳桥栏里把Timage拉到按钮下，作为该按钮的子类，这样你就可以在按钮上画图片了。为了响应按钮事件而不是TImage的Onclick事让启件，你要把TImage的hittext（好像是这个属性)设为True，这样枣滑猛点击图片，就响应了按钮的Onclick

---