Hallo mal an alle,

Hab da mal eine riesen bitte. Hab mit Delphi schon ein bissle erfahrung aber trotzdem totaler newbi noch.
Ich würde gern Eine Delphi Form langsam automatisch scrollen lassen und soll sie wieder zum anfang zurück springen.
Nun zur Frage : Iste es möglich und wenn ja WIE?

Vielen Dank im Vorraus für eure Mühen
MFG Daniel

Ps: Meine Delphi Version war nicht dabei hab hab Delphi DX 10.1 Berlin

zusammenfalten · markieren

Delphi-Quellcode:

type
  TForm59 = class(TForm)
    Panel1: TPanel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form59: TForm59;

implementation

{$R *.dfm}

procedure TForm59.Timer1Timer(Sender: TObject);
var
  rp : integer;
begin
  HorzScrollBar.Position := HorzScrollBar.Position+100;
  if (HorzScrollbar.Position > (HorzScrollbar.Range-self.width)) then
    HorzScrollBar.Position := 0;
end;

feddich

Was brauchst du ?:

Erstmal ein Formular (Form59). Dabei sollte die Eigenschaft "AutoScroll" auf true sein, so das er bei bedarf die Scrollbalken anzeigt.

Das Panel (Panel1) hat in diesem Beispiel eine wesentlich größere Breite (width), als das Formular.

So zeigt das Formular auch automatisch unten einen Scrollbalken an.

Dann brauchst du noch einen Timer (TTimer-Komponente).

Im Event onTimer hinterlegst du obige routine. Die macht jetzt nix anderes als den Scrollbalken jede
Sekunde (Default wert im TTimer 1000 Millisekunden) um 100 Px nach rechts zu verschieben. Danach wird noch geprüft ob die Position noch im Sichtbereich des Formulars ist (range-width); Wenn nicht wird die Position einfach wieder auf 0 gesetzt und er fängt von vorne an.

Oh supi viele vielen dank.
Rettest mir wirklich den ar...!!!

Mfg Daniel