Закрасить кнопку

[artemavd]

Такой вопрос: как мне закрасить кнопку в программе? Имеется ввиду Button. Чтобы она была не серой по умолчанию, а любым другим цветом или такого, какого я ей укажу. Заранее спасибо)

[Stilet]

Вместо Tbutton бери TBitBTN, там это можно делать

[Баламут]

А можно и так, например... Но это уже на любителя

procedure TForm1.Button2Click(Sender: TObject);
var
  DC: HDC;
  Canv: TCanvas;
begin
DC := GetDC(Button1.Handle);
Canv := TCanvas.Create;
Canv.Handle := DC;
Canv.Brush.Color := clRed;
Canv.Pen.Color := clGreen;
Canv.Rectangle(Button1.ClientRect);
Canv.TextOut(1,1,'Превед!');
end;

[artemavd]

Всем большое спасибо)))

[artemavd]

Код работает, но цвет меняется когда нажимаешь на кнопку, а я хотел сделать, чтобы цвет у кнопки был другой еще только при загрузке формы. Чтобы форма загрузилась, а цвет сменился на кнопке. Как это сделать?)

[SERG1980]

Напиши этот код с событии OnCreate формы

[artemavd]

Целиком или чтото изменить надо?

[SERG1980]

Целиком, включая переменные

[artemavd]

Спасибо всем))

[Баламут]

Код работает, но...

Ну так я ведь только идею подал...

Сообщение от SERG1980

Напиши этот код с событии OnCreate формы

И что это даст? Да ровным счетом ничего. Этот код придется выполнить при каждом перерисовывании кнопки. Скажу даже больше, ВМЕСТО стандартного обработчика WM_PAINT этой кнопы. Это совсем не сложно реализовать, но мне кажется, что опыт, добытый собственным потом куда более ценен. Повторяю, я лишь подал ИДЕЮ