Property BevelOuter vom ProgressBar ändern

[Joerg Kuegl]

<p><strong>Hallo Füchse,</strong></p>

<p><strong>ich will die property BevelOuter u. BevelInner vom
ProgressBar ändern, damit das im StatusBar besser aussieht. (Parent
änder ich zu Laufzeit). Die Eigenschaften werden auch im
Objektinspektor angezeigt, allerdings nicht mit meinen
Defaultwerten und zur Laufzeit ist alles wie beim normalen
ProgessBar.</strong></p>
<p><strong>Hat jemand ne Lösung?</strong></p>
<p><strong>Danke u. Gruß Jörg</strong></p>

<p><strong>Das hier funzt leider nett:</strong></p>

<p><strong>unit</strong> MyProgressBar;<br>
<strong>interface</strong><br>
<strong>uses</strong><br>
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,<br>
ComCtrls;<br>
<strong>type</strong><br>
TMyProgressBar = class(TProgressBar)<br>
<strong>published</strong><br>
<strong>property</strong> BevelOuter <strong>default</strong>
bvNone ;<br>
<strong>property</strong> BevelInner <strong>default</strong>
bvNone;<br>
<strong>end</strong>;<br>
<br>
<strong>procedure</strong> Register;<strong><br>
implementation</strong><br>
<strong>procedure</strong> Register;<br>
<strong>begin</strong><br>
RegisterComponents('MyComponents', [TMyProgressBar]);<br>
<strong>end</strong>;<br>
<strong>end</strong>.</p>

[Thomas Melchert]

<p>Hallo Joerg,<br>
<br>
Du musst noch den Create-Constructor überschreiben und dort die Bevel-Default-Werte ebenfalls setzen.<br>
<pre>
published
constructor Create(aOwner:TComponent); override;
property ...
...
...
...
constructor TMyProgressBar.Create(aOwner:TComponent);
begin
inherited Create(aOwner);
BevelOuter:=bvNone;
BevelInner:=bvNone;
end; // TMyProgressBar.Create
</pre>
Gruß Thoma

[Joerg Kuegl]

Hallo Thomas,
Funktioniert es bei Dir so? Das klappt bei mir leider nicht. Liegt das daran, dass BevelOuter/Inner bei TProgressBar nicht mit von TWinControl abgeleitet wurde. Weisst Du ob und wie ich die Eigenschaft hinzufügen kann, oder bin ich echt zu doof?
Gruss Jör