Создание компонента

[nXs]

Ребята, натолкните на мысль, как создать компонент который бы рисовал на канве формы при ее загрузке (что то типа скин менеджера). Я так понял в компонент нужно передать указатель на канву формы, а потом уже работать с ней, но как?

[Пепел Феникса]

что как?
как передать указатель на канву(ссылку на канву(так всетаки вернее))?(компонент и так будет знать кто его родитель(Parent))
или как работать с канвой?

[Stilet]

А AlphaSkins взять не проще?

[nXs]

Alpha skins то проще, но охота самому научится такие вещи делать с рисованием кнопки уже разобрался, но не пойму как такое сделать с формой... Я так понял нужно вместо стандартного OnPaint формы, подсунуть свой, но как реализовать с помощью компонента?

А посмотрите пожалуйста этот компонент. Он вроде работает, но в процессе вылазит куча ошибок. Например, при попытке удаления этого компонента с формы вылетает "Invalid pointer operation", и купа 'Acces violation ... Read of adress'. В итоге Delphi слетает...

[raxp]

ну не знаю, двумя способами добавлял компонент и просто как компонент и подключением через

 var t: TNSEProgressBar;
...
 t:= TNSEProgressBar.Create(nil);
 t.Parent:= form1;

и удалял с формы по разному, все нормально... среда turbodelphi lite/

[nXs]

Странно, я уже и среду переустановил (юзаю Delphi 7), и все равно та же история... У меня в упор все слетает из-за этого компонента, хотя писал по тому же принципу что и другие(рабочие). Еще пишет часто что "Access violation at adress 40005982 in module rtl70.bpl".

[alexBlack]

При беглом просмотре кода настораживает такое приведение:

    NCanvas:TCanvas;
    //...

NCanvas:=TCanvas.Create;
TControlCanvas(NCanvas).Control := Self;

[nXs]

Спасибо, закоментировал строчку

TControlCanvas(NCanvas).Control := Self;

и все ок!

А возможно ли содать компонент перед созданием формы?