Форум: "Основная";
Текущий архив: 2003.09.29;
Скачать: [xml.tar.bz2];
Вниз
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.09.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c