Tpanel.Transparent

← →
webpauk (2003-12-03 15:51) [0]

разумеется такого св-ва нет. Может кто знает как его присобачить?
Точнее говоря, как сделать Tpanel прозрачным

← →
webpauk (2003-12-03 16:15) [1]

ну хоть в каком направлении искать 8(

← →
Юрий Зотов © (2003-12-03 16:23) [2]

Вот основа компонента. Но только основа. Работать будет, но скорее всего, кривовато и потребуется дополнительный код (вероятно, нужно будет обрабатыватьотка WM_PAINT, WM_NCPAINT, WM_ERASEBKGND). Это уж Вы сами. Детали см. в справке API по CreateWindowEx и перечисленным выше сообщениям.

type
TMyPanel = class(TPanel)
private
FTransparent: boolean;
procedure SetTransparent(const Value: boolean);
protected
procedure CreateParams(var Params: TCreateParams); override;
published
property Transparent: boolean
read FTransparent write SetTransparent default False;
end;

procedure TMyPanel.CreateParams(var Params: TCreateParams);
begin
inherited;
if FTransparent then
Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT
end;

procedure TMyPanel.SetTransparent(const Value: boolean);
begin
if FTransparent <> Value then
begin
FTransparent := Value;
RecreateWnd
end
end;

← →
Amoeba © (2003-12-03 16:24) [3]

Создай свой компонет - наследника от TCustomPanel. Перекрой у него конструктор и пропиши в нем
ControlSyle := ControlStyle - [csOpaque];
Кажется так это делается.

Видел такую штуку в CoolDev. По-моему и в JEDI/RxLib тоже есть.

Да, вот в Jedi есть компонент jvPanel. У негт есть св-во Transparent, правда он становится полностью прозрачным.

Tpanel.Transparent Найти похожие ветки