WS_EX_TRANSPARENT

← →
manevil (2006-04-24 13:20) [0]

Помогите, пожалуйста!
Пытаюсь сделать прозрачную панель:

type
TTransparentPanel = class(TPanel)
protected
{ Protected declarations }
procedure CreateParams(var Params: TCreateParams); override;
procedure WMEraseBkgnd(var Msg: TWMEraseBkgnd); message WM_ERASEBKGND;
constructor Create(AOwner: TComponent); override;
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;

...

constructor TTransparentPanel.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Ctl3D := False;
BorderStyle := bsNone;
end;

procedure TTransparentPanel.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT;
end;

Но как потом этот самый параметр WS_EX_TRANSPARENT передать при создании?

как мне теперь создать эту панельку и положить на форму?
Заранее спасибо.

← →
Мефисто (2006-04-24 15:51) [1]

>> WS_EX_TRANSPARENT
А зачем тебе его передовать при создании?

>> как мне теперь создать эту панельку и положить на форму?
Также как и любой другой компонент в Run Time. На королевстве дельфи вроде даже была статья "Жизнь и смерть компонентов в Run Time"

WS_EX_TRANSPARENT Найти похожие ветки