<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>
<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>
Comment