ProgressBar mit einer verzögerten Abnahme des Wertes, nur wie?

[mjustin]

Das ist über einen Thread realisierbar. Die Werte werden dem Thread übergeben, dieser aktualisiert (natürlich per synchronize abgesichert) den Progressbar.
Der Thread errechnet bei sinkenden Werten mehrere Zwischenstufen, die dann z.B. im Abstand von hundert Millisekunden der Progressbar Position zugewiesen werden.
Ich würde einfach eine while not Terminated Schleife verwenden die bei jedem Durchlauf prüft, ob eine neue Position dargestellt werden soll, und andernfalls ein Sleep(100) ausführt.

[KodeZwerg]

Danke an alle für Eure Tipps, mjustins Variante nutze ich bereits, momentan leider noch falsch da ich AVs bekomme.
Also war mein Grundgedanke gar nicht mal allzu abwegig, gut zu Wissen. Ich dachte ich mach es wieder viel zu kompliziert

Mein Grundgedanke war, so bald es ein Audiosignal gibt erstelle ich den Thread, lasse den solange laufen wie Audiosignal am machen ist und dann Thread löschen.

Ich werde daran nochmal anknüpfen bei Problemen, doch jetzt erst mal mein Thread so richten das der auch Werte schlucken kann und an Gui ohne AV wiedergibt.
Da mag ich mich mit alleine beschäftigen, damit ich mein Problem damit besser Verstehe, also bitte keine Ratschläge oder Codes dazu Posten, ich will ja was Lernen und nicht nur abschreiben

[EWeiss]

Nebenbei du kannst auch meinen Slider dafür verwenden.
Der ist eine Kombination aus Slider und Progressbar.

Code gebe ich dir keinen den willst du ja nicht.

gruss

[Schokohase]

Ich hätte da folgenden Vorschlag mit einem Timer

Delphi-Quellcode:

uses
  Winapi.Windows, Winapi.Messages,
  System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls,
  Vcl.ExtCtrls;

type
  TForm1 = class( TForm )
    ProgressBar1: TProgressBar;
    TrackBar1: TTrackBar;
    ProgressTimer: TTimer;
    procedure ProgressTimer_Timer( Sender: TObject );
    procedure TrackBar1_Change( Sender: TObject );
  private
    FProgressPosition: Integer;
    procedure SetProgressPosition( const Value: Integer );
  public
    property ProgressPosition: Integer read FProgressPosition write SetProgressPosition;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ProgressTimer_Timer( Sender: TObject );
begin
  if ProgressBar1.Position <= ProgressPosition
  then
    ProgressBar1.Position := ProgressPosition
  else
    ProgressBar1.Position := ProgressBar1.Position - 1;
end;

procedure TForm1.SetProgressPosition( const Value: Integer );
begin
  FProgressPosition := Value;
end;

procedure TForm1.TrackBar1_Change( Sender: TObject );
begin
  ProgressPosition := TrackBar1.Position;
end;

Ach ja, der ProgressTimer hat Enabled := True und Interval := 10

[KodeZwerg]

Zitat von EWeiss:

Nebenbei du kannst auch meinen Slider dafür verwenden.
Der ist eine Kombination aus Slider und Progressbar.

Code gebe ich dir keinen den willst du ja nicht.

gruss

Ich benutze eine Komponente die mir im Grundzustand einen Kreis pinselt mit nem Zeiger, aber 360°, viel zu viel "rund".
Ich habe es bereits so weit abgeändert das es kein Kreis sondern wie bei echte VUs nur so 80/90° in etwa hat.
Also das Ausschläge der Nadel nur oben dargestellt werden und nicht Kreisrund.
Die Technik die dahinter steckt, ob nun ProgressBar Slider WhatEver bleibt ja die gleiche, von daher, kompatibel zu allem was Werte 0-100 kann.
Aber Danke für keinen Code, ich brauche da echt ne auszeit um drüber zu büffeln, nur kam mir heute was dazwischen und morgen wirds spät.

Ich schaue mir gleich noch Schokohase sein Grundgerüst an, ähnelt meinem quicky von gestern Nacht recht stark.

Sobald ich das fertig habe und jemand Interesse bekundet, pump ich Code hoch.