Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.18;
Скачать: CL | DM;

Вниз

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) ты бы в яндексе уже десятка три статей нашел...


 
killer ©   (2004-07-02 15:29) [12]

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

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 15:32) [13]

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


 
killer ©   (2004-07-02 15:33) [14]

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

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


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

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


 
killer ©   (2004-07-02 15:39) [16]

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



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

Текущий архив: 2004.07.18;
Скачать: CL | DM;

Наверх




Память: 0.5 MB
Время: 0.048 c
3-1087723683
newwm
2004-06-20 13:28
2004.07.18
как изобразить логическую и физическую структуру БД


10-1021230720
jo frodo
2002-05-12 23:12
2004.07.18
переводы CORBA services


6-1085385125
Vik_Sennikov
2004-05-24 11:52
2004.07.18
Сохранение картинки средствами IE


11-1076769216
RA
2004-02-14 17:33
2004.07.18
Меня часто вспрашивают: "А зачем оно надо?".


14-1088235669
KilkennyCat
2004-06-26 11:41
2004.07.18
Ваше отношение к информатике как к науке?