Question

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

Answer 1

如果是自己开发一个带颜色属性的按钮组件，可以打开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;