StatusBar und ProgressBar

[Kunoishi]

ein Hallo an euch hier alle

eine kleine Frage: wie bekomme ich in meine Statusbar eine ProgressBar eingearbeitet?
Die Statusbar habe ich unterteilt in Hilfebereich, Datum, Urzeit und Info jetzt wollte ich noch eine Ladezustandanzeige über die ProgressBar mit einbinden.
Er Zeigt mit aber entweder nur die Statusbar mit ihren Unterteilungen oder nur die ProgressBar.

[Luckie]

Suche schon probiert?

[Kunoishi]

jups habe hier im Forum schon gesucht
viel gefunden Ja aber nichts zu meinem jetzigen Problem

[Luckie]

http://www.delphipraxis.net/internal...ar+progressbar

Und du hast das genauso gemacht? Wenn nicht, dann zeig uns doch mal deinen Quellcode. Oder woher sollen wir wissen, warum das bei dir nicht funktioniert?

[Kunoishi]

warum hab ich das nicht gefunden. ?
werde ich doch gleich mal Ausprobieren.
(ich hoffe ich werde das mit den Bit und so mal langsam verstehen)
aber ihr habt mir noch nicht verraten was ihr anders macht als wir (Anfänger)
ich glaube ihr denkt schon in bit#s genau das wird es sein.

DANKE

[Luckie]

Nein, ich habe einfach nach statusbar progressbar gesucht.

[Kunoishi]

ich habe das ganze jetzt so angepackt

Delphi-Quellcode:

unit MAIN;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus,
  StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns,
  ActnList, ToolWin, ImgList, IniFiles, XPMan, Commctrl, CheckLst;

type
  TMainForm = class(TForm)

.
.
.

  public
    constructor Create(AOwner: TComponent); override;

.
.
.

procedure TMainForm.CreateMDIChild(const Name: string);
var
  Child: TMDIChild;
begin
  Child := TMDIChild.Create(Application);
  Child.Caption := Name;
end;
////////Test
constructor TMainForm.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  ControlStyle := ControlStyle + [csAcceptsControls];
end;
//Ladezustandsanzeige//////
procedure TMainForm.DatenTimerTimer(Sender: TObject);
begin
  Inc(Ctr, 2);
  if Ctr>100 then Ctr:=0;
  laPos.Caption:=IntToStr(Ctr);
end;
//Ladezustandsanzeige//
procedure TMainForm.Button1Click(Sender: TObject);
var
  i: Integer;
  dt: TDateTime;
begin
  DatenTimer.Enabled:=false;
  StatusBar.Hide;
  paProgrStatus.Show;
  paProgrStatus.Repaint;

  try
    for i:=0 to 100 do begin
      dt:=Now;
      while (Now-dt)<EncodeTime(0, 0, 0, 10) do;
      pbStatus.Position:=i;
      laPos.Caption:=IntToStr(i);
      paProgrStatus.Caption:=IntToStr(i);
      paProgrStatus.Repaint;
      laPos.Repaint;
    end;
  finally
    paProgrStatus.Hide;
    StatusBar.Show;
    DatenTimer.Enabled:=true;
  end;
end;

procedure TMainForm.FormShow(Sender: TObject);
var
  r: TRect;
begin
     StatusBar.Perform(SB_GETRECT, 0, Integer(@R));
     paProgrStatus.Parent := Statusbar;  //Prog.Bar adoptieren
     paProgrStatus.Top    := r.Top;      //Größe der
     paProgrStatus.Left   := r.Left;      //Progressbar setzen
     paProgrStatus.Width  := r.Right - r.Left; //und an Panel anpassen
     paProgrStatus.Height := r.Bottom - r.Top;

end;

jetzt habe ich gesehen Ihr habt dort noch eine Class drin (logisch)

Wie bekomme ich das mit der zweiten Class anweisung hin?
der Fehler müßte jetzt ja nur noch daran liegen!!

type
TMyStatusBar = class(TStatusBar)

[Luckie]

Könntest du dich eventuell etwas deutlicher ausrücken? Wo ist dein Problem? Was funktioniert nicht?

[Kunoishi]

Das Problem liegt in der Class Anweisung die ich scheinbar noch mit einarbeiten muß

type
TMyStatusBar = class(TStatusBar)


jedoch habe ich doch schon eine drin

type
TMainForm = class(TForm)

diese zielt jedoch auf das Form

wenn ich das aber richtig verstanden habe muß ich ja noch über diese Class-Anwendung auf den Statusbar umleiten.

wie kann ich haber in einer Anwendung zwei Class einbauen?

Das war meine Frage

[Luckie]

Bitte lesen und verstehen. Im SwissDelphiCenter werden zwei Lösungen vorgestellt. Du hast die zweite implementiert.

Oder funktioniert irgendwas nicht? Wann ja, dann sag es uns.