Transparent в Notebook

← →
killer © (2004-07-01 19:54) [0]

Как можно сделать фон в Notebook как в форме? (на форме рисунок) Т.е. сделать прозрачнвм...

← →
Семен Сорокин © (2004-07-01 20:10) [1]

попробуй добавить обработку WM_ERASEBKGND и добавь стиль WS_EX_TRANSPARENT в CreateParams

← →
Семен Сорокин © (2004-07-01 20:10) [2]

с другой стороны там еще и закладки есть, возможно и для них надо будет.

← →
killer © (2004-07-01 20:54) [3]

Да, там еще закладки...

← →
killer © (2004-07-01 21:13) [4]

а как добавить эту обработку???

← →
killer © (2004-07-01 22:17) [5]

Люди, помогите пожалуйста...

← →
killer © (2004-07-01 22:30) [6]

Пишу:
procedure TMewNotebook.CreateParams(var Params: TCreateParams); begin inherited; with Params do WS_EX_TRANSPARENT; end;

на WS_EX_TRANSPARENT ошибка...

← →
Рыба © (2004-07-02 00:01) [7]

>with Params do WS_EX_TRANSPARENT;

%-))

← →
Рыба © (2004-07-02 00:04) [8]

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

← →
killer © (2004-07-02 01:28) [9]

Рыба Я плохо знаю как компоненты пишутся......:(((
Может поможешь?

← →
Рыба © (2004-07-02 10:47) [10]

Рыба уехала в отпуск.

← →
Семен Сорокин © (2004-07-02 11:06) [11]

2killer
я думаю по ключевым строкам (WM_ERASEBKGND, WS_EX_TRANSPARENT, Delphi) ты бы в яндексе уже десятка три статей нашел...

Вот мой компонент...

unit NewNotebook;

interface

uses
SysUtils, Classes, Controls, ExtCtrls, ComCtrls, Windows, Messages, CommCtrl;

type
TMaxNotebook = class(TNotebook)
private
{ Private declarations }
protected
{ Protected declarations }
procedure CreateParams(var Params: TCreateParams); override;
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
published
{ Published declarations }
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents("MyComponents", [TNewNotebook]);
end;

constructor TNewNotebook.Create(AOwner: TComponent);
begin
inherited;
end;

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

end.

Ставится нормально... а когда я кладу его на форму ошибка какая-то...

inherited; <- убери точку с запятой, или следующую строчку :))
CreateParams(Params);

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

так сделать? :)

неа, вот так:
procedure TNewNotebook.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT; end;

получилось :) Спасибо!!!

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