WS_EX_TRANSPARENT
manevil © (2006-04-24 13:20:00)
Помогите, пожалуйста!
Пытаюсь сделать прозрачную панель:
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:00) [1]
>> WS_EX_TRANSPARENT
А зачем тебе его передовать при создании?
>> как мне теперь создать эту панельку и положить на
форму?
Также как и любой другой компонент в Run Time. На королевстве
дельфи вроде даже была статья "Жизнь и смерть компонентов в Run
Time"
Наверх 
ЧАТ |
Орешник |
|
