Как для TRichEdit организовать прозрачность?

← →
kblc © (2004-07-29 18:07) [0]

Уважаемые мастера, я хотел бы у вас спросить как для потомка TRichEdit организовать прозрачность.
Я пробовал
SetWindowLong(Handle, GWL_EXSTYLE,GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED); SetLayeredWindowAttributes(Handle, 0, (255 * 70) div 100, LWA_ALPHA);
но это не помогает.
Т.е. я размещаю потомок TRichEdit на форме, и мне нужно задать его прозрачность. Как это сделать?
Заранее благодарю за ответ...

← →
clickmaker © (2004-07-29 18:37) [1]

в переопределенном CreateParams попробуй изменить ExStyle

← →
kblc © (2004-07-29 19:41) [2]

а каким его поставить? т.е. на что его изменить?

← →
kblc © (2004-07-30 10:53) [3]

Ничего не помогает... есть какие-нибудь другие советы? мне очень срочно нужно...

← →
GrayFace (2004-07-30 11:25) [4]

Попробуй ловить wm_errasebkgnd и, не обрабатывая, возвращать 1.

← →
kblc © (2004-07-30 11:43) [5]

т.е.
protected procedure ER(var Msg: TMessage); message WM_ERASEBKGND; а где здесь возвращать 1? и будет ли это работать?

← →
clickmaker © (2004-07-30 11:49) [6]

> kblc © (29.07.04 19:41)
> а каким его поставить? т.е. на что его изменить?

Params.ExStyle := Params.ExStyle or WS_EX_LAYERED;

← →
kblc © (2004-07-30 12:24) [7]

>clickmaker
Code 1400: Недопустимый дескриптор окна

Неужели никто не поможет?

kblc © (30.07.04 11:43) [5]
Это надо вставить в свой RichEdit.
Msg.Result:=1;
Можно не создавать свой RichEdit - заменить у компонента WindowProc на свой, в котором при всех сообщениях, кроме WM_ERASEBKGND вызывай предыдущую WindowProc.

Хм... мне нужно сделать мой richedit не полностью прозрачным... а к примеру на 70%... как это сделать?

Как для TRichEdit организовать прозрачность? Найти похожие ветки