Скачать: CL | DM;

Как сделать компонент TCheckBox прозрачным?   Найти похожие ветки 

← →
V.Turecky   (2002-07-30 19:24) [0]

Добрый вечер!

Как сделать компонент TCheckBox прозрачным? А то он у меня на изображении находится и, когда пользователь меняет схему оформления Windows"а, например на "Баклажан", то всё очень некрасиво. Жду Ваших идей.

---

← →
Eugene Lachinov ©   (2002-07-30 22:17) [1]

Честно говоря не понял, почему WM_CTLCOLORSTATIC (думал, что должно быть WM_CTLCOLORBTN), но вроде работает

procedure TForm1.WMCtlColorStatic(var Message : TWMCtlColorStatic);
begin
if Message.ChildWnd = CheckBox1.Handle then begin
SetTextColor(Message.ChildDC, CheckBox1.Font.Color);
SetBkMode(Message.ChildDC, TRANSPARENT);
Message.Result := GetStockObject(NULL_BRUSH)
end else
inherited;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
SetWindowLong(CheckBox1.Handle, GWL_EXSTYLE,
GetWindowLong(CheckBox1.Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT)
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c