Hey,
vom Prinzip ist es das - genau.
Aber ich finde die wichtigen Stellen nicht, so lange bin ich noch nicht bei Delphi *rotwerd*
Mein Projekt sieht so aus:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QProgBar, ExtCtrls, bass;
type
TForm1 =
class(TForm)
QProgressBar1: TQProgressBar;
QProgressBar2: TQProgressBar;
QProgressBar3: TQProgressBar;
QProgressBar4: TQProgressBar;
Timer1: TTimer;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
end.
Qprogressbar1.position und Qprogressbar2.position sollen dem linken Peak annehmen, 3 und 4 den rechten.
Wie ist das genau machbar?
Vielen Dank , ich hoffe, dass ihr nicht so vorm Rechner sitzt, wenn ihr das lest:
Danke,
Kranich