怎么改变按钮的背景颜色，以及按钮文字的背景颜色。多谢！

Question

delphi 6 可以改变botton 的衍射 但改不了 speedbutton bitbtn
delphi5 没戏
要用第三方控件
flatstyle就不错 lmdtools
www.inpries.com
www.lmdtools.com

Answer 1

背景颜色不能改
用bitbtn可一该字体颜色

Answer 2

看一下flatstyle源码自己编一个

Answer 3

我这里有一个自定义按钮控件的源代码,
它可以让你任意改变它的颜色、形状。
与普通按钮一样使用。
但Delphi自带的普通Button并没有改变其背景颜色的属性.
如想要
可以给我发伊妹：[email protected]

Answer 4

如何改变控件的颜色
 
有两种方法。其一，可以在父类中指定控件的颜色，或者利用MFC4.0新的消息反射在控件类中指定颜色。 当控件需要重新着色时，工作框调用父窗口（通常是对话框）的CWnd: : OnCrtlColor,可以在父窗口类中重置该函数并指定控件的新的绘画属性。例如，下述代码将对话中的所有编辑控件文本颜色改为红色：
HBRUSH CAboutDig : : OnCtlColor (CDC * pDCM , CWnd * pWnd , UINT nCtlColor)
{
 HBRUSH hbr = CDialog : : OnCtlColor (pDC, pWnd , nCtlColor )
 //Draw red text for all edit controls .
 if (nCtlColor= = CTLCOLOR_EDIT )
 pDC —> SetTextColor (RGB (255, 0 , 0 , ) )
 return hbr
}
然而，由于每个父窗口必须处理通知消息并指定每个控件的绘画属性，所以，这种方法不是完全的面向对象的方法。控件处理该消息并指定绘画属性更合情合理。消息反射允许用户这样做。通知消息首先发送给父窗口，如果父窗口没有处理则发送给控件。创建一个定制彩色列表框控件必须遵循下述步骤。
首先，使用ClassWizard 创建一个CListBox 的派生类并为该类添加下述数据成员。
class CMyListBox publilc CListBox
{
…
private
 COLORREF m_clrFor // foreground color
 COLORREF m_clrBack //background color
 Cbrush m_brush //background brush
…
}
其次，在类的构造函数中，初始化数据中。
CMyListBox : : CMyListBox ()
{
 //Initialize data members .
 m_clrFore =RGB (255 , 255 , 0) //yellow text
 m_clrBack=RGB (0 , 0 , 255) // blue background
 m_brush . CreateSolidBrush (m _clrBack )
}
最后，使用ClassWizard处理反射的WM_CTLCOLOR(=WM_CTLCOLOR)消息并指定新的绘画属性。
HBRUSH CMyListBox : : CtlColor (CDC* pDC, UINT nCtlColor )
{
 pDC—>SetTextColor (m_clrFore)
 pDC—>SetBkColor (m_clrBack)
 return (HBRUSH) m_brush.GetSafeHandle ()
}
现在，控件可以自己决定如何绘画，与父窗口无关。 

Answer 5

unit tzButton;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,ExtCtrls;type
  TtzButton = class(TButton) //思想就是给它加个画布，改画布颜色
  private
    FCanvas: TCanvas;
    procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
  protected
    procedure Paint; virtual;   //后加的
    procedure PaintWindow(DC: HDC); override;
    property Canvas: TCanvas read FCanvas;    procedure ButtonClick(Sender: TObject); virtual;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property Color;
  end;
procedure Register;implementationprocedure Register;
begin
  RegisterComponents('TZhuang', [TtzButton]);
end;{ TtzButton }procedure TtzButton.paint;
var ARect: TRect;
  Flags: Longint;begin  with Canvas do begin
    ARect := GetClientRect;
    Brush.Color := Self.Color;
    FillRect(ARect);
                                  //模仿TCustomPanel.paint的代码
    Frame3D(Canvas, ARect, clBtnHighlight, clBtnShadow, 1);
    Flags := DT_EXPANDTABS or DT_VCENTER or DT_CENTER;
    //Flags := DT_CENTER or DT_VCENTER;
    Flags := DrawTextBiDiModeFlags(Flags);
    DrawText(Handle, PChar(Caption), -1, ARect, Flags);  end;end;constructor TtzButton.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FCanvas := TControlCanvas.Create;
  TControlCanvas(FCanvas).Control := Self;  OnClick:= ButtonClick;
end;destructor TtzButton.Destroy;
begin
  FCanvas.Free;
  inherited Destroy;
end;procedure TtzButton.WMPaint(var Message: TWMPaint);
begin
  ControlState:= ControlState + [csCustomPaint];
  //Include(FControlState, csCustomPaint);
  inherited;
  //Exclude(FControlState, csCustomPaint);
  ControlState:= ControlState - [csCustomPaint];
end;procedure TtzButton.PaintWindow(DC: HDC);
begin
  FCanvas.Lock;
  try
    FCanvas.Handle := DC;
    try
      TControlCanvas(FCanvas).UpdateTextFlags;
      Paint;
    finally
      FCanvas.Handle := 0;
    end;
  finally
    FCanvas.Unlock;
  end;
end;procedure TtzButton.ButtonClick(Sender: TObject);
begin
  invalidate;  //刷新!
end;end.