Вот, значит, какое дело: пользователи просят, чтобы кнопки на форме были цветными. Но такой функции для компонента TButton я не нашла...
Решила раскрасить хотя бы надпись на кнопке.

-Задаю цвет для Font в Object Inspector - но текст как был черным, таким и остается.

-Задаю в программе: Button1.Font.Color:=clRed; - эффект тот же...

Может быть, что-то делаю не так? Мне бы самой и в голову не пришла такая идея - кнопочки раскрашивать, но ведь желание пользователя - закон...

bagira таким способом неполучится... нужно самому кнопку делать или (че намного проще) скачать какой-нить компонент ал-ля цветные кнопки
посмотри например здесь

1) Ну сделай кнопочки BitButton'ами...
2) Прочитай ФАК Вита, а там написано, как сделать кнопочки с цветным шрифтом...

nJIaKca.spb
Morpheus

Спасибо! Пойду искать...

Есть хорошие кнопки в Delphi : SpeedButton -> в эту кнопку можно загружать изображения, а также делать её прозрачной

Все же спидбаттн это не обычная кнопка. ТАк что лучше или компонентой или..а ведь можно же изначальный цвет текста кнопки выбрать. Там есть какое-то свойство.

Ладно, у меня просто винда слетела, нет делфи пока что проверить не могу и сказать что-нибудь определенное

В качестве кнопки также можно использовать Image. Свойство Canvas можно использовать для вывода на него текста различного формата (например различного цвета буквы, хаотично расположенные буквы, или буквы различных штифтов. Наконец, можно использовать несколько этих компонентов расположенных друг на друге с подгруженными в них изображениями состояния кнопки, и в зависимости от положения курсора делать видимым тот или иной Image.
Но всётаки проще использовать Спидбуттон. В него также можно подгружать различные изображения в ходе выполнения программы.

Это сообщение отредактировал(а) Albinos_x - 29.5.2004, 16:08

СпидБатон плохой компанент, он никогда не имеет фокуса (это минус)
А вот БитБатон вполне нормальный компанент и рисуночки тебе и цвет меняется без проблем
Хотя рисовать можно и на простом Батоне у него тож есть свойство Canvas

Немного про цвет самой кнопки:

Код

unit ColorBtn; interface uses Windows, Messagesm SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type TColorBtn = class (TButton)  private   IsFocused: boolean;   FCanvas: TCanvas;   F3DFrame: boolean;   FButtonColor: TColor;   procedure Set3DFrame(Value: boolean);   procedure SetButtonColor(Value: TColor);   procedure CNDrawItem(var Message: TWMDrawItem); message CN_DRAWITEM;   procedure WMLButtonDblClk(var Message: TWMLButtonDblClk); message WM_LBUTTONDBLCLK;   procedure DrawButtonText(xonst Caption: string; TRC: TRect; State: TButtonState; BiDiFlags: longint);   procedure CalculateTextPosition(const Caption:string; var TDC: TRect; BiDiFlags: longint);  protected   procedure CreateParams(var Params: TCreateParams); override;   procedure SetButtonStyle(ADefault: boolean); override;  public   constructor Create(AOwner: TComponent); override;   destructor Destroy; override;  published   property ButtonColor: TColor read FButtonColor write SetButtonColor default clBtnFace;   property Frame3D: boolean read F3DFrame write Set3DFrame default False; end; procedure Register; implementation {TColorBtn} constructor TColorBtn.Create(AOwner: TComponent); begin Inherited Create(AOwner); FCanvas:=TCanvas.Create; FButtonColor:=clBtnFace; F3DFrame:=false; end; destructor TColorBtn.Destroy; begin FCanvas.Free; Inherited Destroy; end; procedure TColorBtn.CreateParams(var Params: TCreateParams); begin Inherited CreateParams(Params); with Params do  Style:=Style or BS_OWNERDRAW; end; procedure TColorBtn.Set3DFrame(Value: boolean); begin if F3DFrame <> Value  then   F3DFrame:=Value; end; procedure TColorBtn.SetButtonColor(Value: TColor); begin if FButtonColor <> Value  then   begin    FButtonColor:=Value;    Invalidate;   end; end; procedure TColorBtn.WMLButtonDblClk(var Message: TWMLButtonDblClk); begin Perform(WM_LBUTTONDBLCLK, aMessage.Keys, Longint(Message(pos)); end; procedure TColorBtn.SetButtonStyle(ADefault: boolean); begin if IsFocused <> ADefault  then   IsFocused:=ADefault; end; procedure TColorBtn.CNDrawItem(var Message: TWMFrawItem); var Rc:TRect; Flags: longint; State: TButtonState; IsDraw, IsDefault: boolean; DrawItemStruct: TDrawItemStruct; begin DrawItemStruct:=Message.DrawItemStruct^; FCanvas.Handle:=DrawItemStruct.HDC; RC:=ClientRect; with DrawItemStruct do  begin   IsDown:=ItemState and ODS_SELECTED <> 0;   IsDefault:=ItemState and ODS_FOCUS <> 0;   if not Enabled    then     State:=dbDisabled    else     if isDown      then       State:=bsDown      else       State:=bsUp;  end; Flags:=DFCS_BUTTONPUSH or DFCS_ADJUSTRECT; if IsDown  then   Flags:=Flags or DFCS_PUSHED; if DrawItemStruct.ItemState and ODS_DISABLED <> 0  then   Flags:=Flags or DFCS_INACTIVE; if IdFocused or IsDefault  then   begin    FCanvas.Pen.Color:=clWindowFrame;    FCanvas.Pen.Width:=1;    FCanvas.Brush.Style:bsClear;    FCanvas.Rectangle(RC.Left, RC.Top, RC.Right, RC.Bottom);    InflateRect(RC, -1, -1);   end; if IsDown  then   begin    FCanvas.Pen.Color:=clBtnShadow;    FCanvas.Pen.Width:=1;    FCanvas.Rectangle(RC.Left, RC.Top, RC.Right, RC.Bottom);    InflateRect(RC, -1, -1);    if F3DFrame     then      begin       FCanvas.Pen.Color:=FButtonColot;       FCanvas.Pen.Width:=1;       DrawFrameControl(DrawItemStruct.HDC, RC, DFC_BUTTON, Flags);      end;   end  else   DrawFrameControl(DrawItemStruct.HDC, RC, DFC_BUTTON, Flags); FCanvas.Brush.Color:=FButtonColor; FCanvas.FillRect(RC); InflateRect(RC, 1, 1); if IsFocused  then   begin    RC:=ClientRect;    InflateRect(RC, -1, -1);   end; if IsDown  then   OffsetRect(RC, 1, 1); FCanvas.Font:=self.Font; DrawButtonText(Caption, RC, State, 0); if IsFocused and IsDefault  then   begin    RC:=ClientRect;    InflateRect(RC, -4, -4);    FCanvas.Pen.Color:=clWindowFrame);    Windows.DrawFocusRect(FCanvas.Handle, RC);   end; FCanvas.Handle:=0; end; procedure TColorBtn.CalculateTextPosition(const Caption:string; var TRC:TRect; BiDiFlags: longint); var TB: TRact; TS, TP: TPoint; begin with FCanvas do  begin   TB:=Rect(0, 0, TRC.Right + TRc.Left, TRC.Top + TRC.Bottom);   DrawTect(Handle. PChar(Caption, Length(Caption), TB, DT_CALCRET or BiDiFlags);   TS:=Point(TB.Right - TB.Left, TB.Bottom - TB.Top);   TP.X:=((TRC.Right - TRC.Left) - TS.X + 1) div 2;   TP.Y:=((TRC.Bottom - TRC.Top) - TS.Y + 1) div 2;   OffsetRect(TB, TP.X + TRC.Left, TP.Y + TRC.Top);   TRC:=TB;  end; end; procedure TColorBtn.DrawBottunText(const caption:string; TRC:TRect; State:TButtonState; BiDiFlags:longint); begin with FCanvas do  begin   CalculateTextPosition(Caption, TRC, BiDiFlags);   Brush.Style:=bsClear;   if State = bsDisabled    then     begin      OffsetRect(TRC, 1, 1);      Font.Color:=clBtnHighlight;      DrawText(Handle, PChar(Caption), Length(Caption), TRC, DT_CENTER or DT_VCENTER or BiDiFlags);      OffsetRect(TRC, -1, -1);      Font.Color:=clBtnShadow;      DrawText(Handle, PChar(Caption), Length(Caption), TRC, DT_CENTER or DT_VCENTER or BiDiFlags);     end    else     DrawText(Handle, PChar(Caption), Length(Caption), TRC, DT_CENTER or DT_VCENTER or BiDiFlags);  end; end; procedure Register begin RegisterComponents('Additional', [TColorBtn]); end; end.

Большое спасибо всем, кто ответил!

Можно использовать картинки на форме и обрабатывать события OnClick.

NiJazz
смотри выше, я уже это предлагал