Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.12;
Скачать: 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 вся ветка

Текущий архив: 2002.08.12;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.01 c
14-35440
v2a
2002-07-17 10:38
2002.08.12
MapObjects


1-35279
^SANYA
2002-07-31 14:36
2002.08.12
В каком модуле объявлен


3-35190
Dmitrey
2002-07-23 11:54
2002.08.12
Свой потомок TDataSet


1-35359
Faun
2002-07-30 14:39
2002.08.12
Не верю, что никто не знает!


3-35142
Loco
2002-07-21 16:02
2002.08.12
SQL