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

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]

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

---

← →
NAlexey ©   (2003-09-15 11:07) [8]

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

---

← →
sewix ©   (2003-09-17 08:08) [9]

.
> HolACost! ©

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

---

← →
HolaCost! ©   (2003-09-17 08:10) [10]

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

---

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

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



Память: 0.47 MB
Время: 0.018 c