Вниз
Скачать: CL | DM;

Прозрачный компонент (наследник TWinControl)   Найти похожие ветки 

 
Vladix ©   (2006-11-15 16:03) [0]

День добрый!
Вопрос практически весь в теме. Нужно сделать компонент (наследник TWinControl - это обязательное условие!) прозрачным. Что для этого нужно перекрыть в TWinControl"е, чтобы он не трогал фон родительского окна?


 
thevalery ©   (2006-11-15 16:18) [1]

Можно перебить обычную отрисовку и стирание фона (WM_ERASEBKGND), но это чревато мусором, т.к. винда считает что на этом месте что-то по-любому должно отрисоваться и в целях оптимизации не дает родителю рисовать в "заявленной" компонентом области. Единственное что приходит на ум - воспользоваться механизмом "фигурных" форм (с помощью маски прозрачности), но применимо ли это здесь - не в курсе. Может проще постановку задачи подправить? ;-)


 
Vladix ©   (2006-11-15 16:37) [2]

Может быть моих знаний не хватает... Мне нужен компонент, способный быть контейнером для других компонентов, принимающий сообщения Windows и к этому еще и прозрачный; причем он должен быть прозрачным, а расположенные на нем компоненты - нет.


 
Наиль ©   (2006-11-15 16:39) [3]

Поставь кнопку на Image с рисунком.
Испытай такой код:
procedure TForm2.Button1Click(Sender: TObject);
Var
Region:HRGN;
begin
Region:=CreateEllipticRgnIndirect(Button1.ClientRect);
SetWindowRgn(Button1.Handle,Region,True);
DeleteObject(Region);
end;

Такой способ подходит для компонент, которые редко меняют размер. Например, для кнопок.


 
Vladix ©   (2006-11-16 14:04) [4]

Спасибо, при регионы-то я пока даже и не думал в этом контексте. Обязательно попробую


 
DVM ©   (2006-11-17 15:38) [5]


> т.к. винда считает что на этом месте что-то по-любому должно
> отрисоваться и в целях оптимизации не дает родителю рисовать
> в "заявленной" компонентом области.

Неправда. Это зависит от стилей родительского и дочернего окон.
WS_CLIPSIBLINGS и WS_CLIPCHILDREN



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

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



Память: 0.46 MB
Время: 0.017 c
8-1170614408
K@KTUS
2007-02-04 21:40
2007.12.02
PNG-изображения


3-1184657924
Term
2007-07-17 11:38
2007.12.02
Создание TDataSet


3-1185003320
NewZ
2007-07-21 11:35
2007.12.02
Как заменить значение NULL?


15-1193772970
korneley
2007-10-30 22:36
2007.12.02
Фича/глюк/(не)задокументированная возможность ?


15-1194188642
AlexanderMS
2007-11-04 18:04
2007.12.02
Кодировка Windows-1251




   Наверх