Архив форумов ЦИТФорума

[TIMUR]

аким образом можно создать прозрачный оконный элемент(панель или др.)? Так что бы графические элементы под этим элементом были видны, а этот элемент обрабатывал хотябы нажатия мышь.
Способов много, но нужен именно компонент.
При прозрачной кисти, область под отрисовывается не правильно... Подскажите что сможите.

[SergeVG]

Попробуй вставить это в OnPaint, а также перехватить сообщение очистки бакграунда.

procedure DrawParentImage(Control: TControl; Dest: TCanvas);
var
SaveIndex: Integer;
DC: HDC;
P: TPoint;
begin
with Control do begin
if Assigned(Parent) then begin
DC := Dest.Handle;
SaveIndex := SaveDC(DC);
GetViewportOrgEx(DC, P);
SetViewportOrgEx(DC, P.X - Left, P.Y - Top, nil);
IntersectClipRect(DC, 0, 0, Parent.ClientWidth, Parent.ClientHeight);
Parent.Perform(WM_ERASEBKGND, DC, 0);
Parent.Perform(WM_PAINT, DC, 0);
RestoreDC(DC, SaveIndex);
end;
end;
end;

А вообще работающие такие компоненты можешь найти на моем сайте...

[Mike]

может лабел поможет ? там есть свойство прозрачности

[remach]

Подскажите пожалуйста способ сделать прозрачным TWebBrowser, или аналогичный компонент с такой функцией (transparent).
Было бы неплохо отображать отформатированный текст на дизайне программы.