| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Transparent в Notebook [D7, Win95/98, WinXP]

killer ©   (2004-07-01 19:54:00) 

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

---

killer   (2004-07-02 15:39:00) [1]

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

---

Семен Сорокин   (2004-07-02 15:34:00) [2]

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

---

killer   (2004-07-02 15:33:00) [3]

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

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

---

Семен Сорокин   (2004-07-02 15:32:00) [4]

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

---

killer   (2004-07-02 15:29:00) [5]

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

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.

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

---

Семен Сорокин   (2004-07-02 11:06:00) [6]

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

---

Рыба   (2004-07-02 10:47:00) [7]

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

---

killer   (2004-07-02 01:28:00) [8]

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

---

Рыба   (2004-07-02 00:04:00) [9]

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

---

Рыба   (2004-07-02 00:01:00) [10]

>with Params do WS_EX_TRANSPARENT;

%-))

---

killer   (2004-07-01 22:30:00) [11]

Пишу:

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


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

---

killer   (2004-07-01 22:17:00) [12]

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

---

killer   (2004-07-01 21:13:00) [13]

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

---

killer   (2004-07-01 20:54:00) [14]

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

---

Семен Сорокин   (2004-07-01 20:10:00) [15]

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

---

Семен Сорокин   (2004-07-01 20:10:00) [16]

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

---

Наверх