CheckBox прозрачный

← →
Sewix © (2003-09-13 09:03) [0]

Как сделать, что бы CheckBox был прозрачным? Он у меня на картинке стоит.

← →
dataMaster © (2003-09-13 11:25) [1]

Испльзуй в паре Check+Label

← →
sewix © (2003-09-14 20:14) [2]

> dataMaster

так нестабильно работает

← →
Ученик © (2003-09-14 20:53) [3]

>Sewix © (13.09.03 09:03)

procedure WMCtlColorStatic(var Message : TWMCtlColorStatic); message WM_CTLCOLORSTATIC;

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

procedure TForm1.WMCtlColorStatic(var Message : TWMCtlColorStatic);
begin
if Message.ChildWnd = CheckBox1.Handle then
SetBkMode(Message.ChildDC, TRANSPARENT);
inherited
end;

← →
Um (2003-09-15 09:34) [4]

>Ученик
Клёво,а нельзя без обработки события на паренте,
а то принцип не пойму,
а форму можно сделать таким образом TRANSPARENT

← →
HolACost! © (2003-09-15 10:35) [5]

sewix © (14.09.03 20:14) [2]
А в чём проблема-то? Почему не стабильно работает?

← →
NAlexey © (2003-09-15 11:01) [6]

>Ученик
Извини за вопрос, нет времени пробывать выполнить твой код, но ты уверен что он рабочий?

← →
Song © (2003-09-15 11:02) [7]

Вот народ ленивый пошёл, а проверить слабо?

Хм... Действительно, рабочий пример.

.
> HolACost! ©

Нестабильность в том, что НЕ при каждом клике на label срабатывает флажок. Да и выглядит не естественно - нет пунктироного выделения label.

Если не критично, то можно свой написать!

CheckBox прозрачный Найти похожие ветки