Progressbar

[Rafet El Roman]

Hallo,

kann mir jemand weiterhelfen? Möchte Progressbar in Statusbar anzeigen?
Danke

[Hagen Reddmann]

Hi

<pre>

procedure TForm1.FormCreate(Sender: TObject);
begin
ProgressBar1.Parent := StatusBar;
end;

</pre>

Gruß Hage

Danke Hagen hat geklappt!
Gruss Rafe

[Jens Schumann]

<pre><font size="2" face="Verdana">Hallo,
wenn man öfter einen Komponente auf TStatusbar legen möchte,
lohnt es sich, einen TStatusBar Nachfahren zuerstellen, der
Komponenten akzeptieren kann.
:-) Jens Schumann</pre>
<br><pre>
unit StatusBarEx;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls;

type
TStatusBarEx = class(TStatusBar)
private
{ Private-Deklarationen}
protected
{ Protected-Deklarationen}
public
{ Public-Deklarationen}
constructor Create(AOwner: TComponent); override;
published
{ Published-Deklarationen }
end;

procedure Register;

implementation

constructor TStatusBarEx.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle := ControlStyle + [csAcceptsControls];
end;

procedure Register;
begin
RegisterComponents('Mycomps', [TStatusBarEx]);
end;

end.</pre&gt