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

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"

---

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

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



Память: 0.45 MB
Время: 0.034 c