Wie im Abspann

[A-M-X]

Huhu!

Hab unter "scroll" gesucht , aber nix gefunden

meine frage: wie scrolle ich ein Memo (ohne die komponente "PageScroller") stück für stück runter?
wie im abspann eben

[Olli]

TAboutScroller

[A-M-X]

hm das hilft mir irgendwie ned weiter o.o

[TeronG]

Dann füll dein memo einfach per schleife mit z.B. 10 zeilen deines abspannes (zeile 1-10) und beim 2ten durchlauf hald eine zeile weiter (Zeile 2-11) ... dann sollte es so aussehen, daß der Text scrollt ...

[A-M-X]

naja. wollte was einfacheres ^^

[TeronG]

Zitat von A-M-X:

naja. wollte was einfacheres ^^

einfacher??
hast doch den text bestimmt eh schon irgendwo inner Datei/Tstinglist/memo dann brauchste ja nur eine schleife (0 to .count) die lines[i] do i+10 in's memo kopieren .... also eine codezeile in 2 schleifen .. ach ja 2te codezeile für ne kleine verzögerung wirste brauchen oder nen Timer ... falls keine unerwarteten Probleme auftauchen sollte das doch recht einfach sein.
Natürlich nicht so einfach wie .Scroll := true

edit: OK .. wenn du ne zeile einfügen möchtest, die es nicht giebt musste ne leezeile einfügen .. sprich noch ne qodezeile/abfrage

[PierreB]

http://www.saturnlaboratories.co.za/credits.php

Und jetzt sag bitte nicht wie bei Olli das hilft dir nicht weiter, diese Komponente macht auf eine sehr einfach Art & Weise genau das was du willst.

[A-M-X]

Hm
Kenn mich da ned aus : wie installiere ich diese komponente??

[TeronG]

1. Mir war grade n bissl fad und da hab ich mal auf die schnelle was zusammengebastelt...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j  : Integer;
  text : TStringList;
begin
  text := TStringList.Create;
  text.LoadFromFile(tg_hier+'text.txt');

  for i := 0 to text.Count-1 do begin
    Memo1.Clear;
    for j := 0 to 10 do begin
      if not (i+j > text.Count-1)
        then Memo1.Lines.Add(text[i+j])
        else Memo1.Lines.Add('');
    end;
    Wait(500); // <-- pause ohne sleep siehe DP
  end;

  text.Free;
end;

2. zu:

Zitat von A-M-X:

Kenn mich da ned aus : wie installiere ich diese komponente??

siehe unten

[PierreB]

Zitat von A-M-X:

Hm
Kenn mich da ned aus : wie installiere ich diese komponente??

Da du mich ja schon per ICQ gefragt hast: Entpacke das Archiv nach .../Programme/BDS/3.0/lib, dann starte Delphi, klick oben rechts in dem Fenster (Packages-Fenster, wenn du das Default Layout eingestellt hast) mit rechts in das Feld, wähle dann Hinzufügen, gib dort die Credits.pas an, klicke dann wieder mit rechts und wähle erst Compilieren, dann Installieren. Delphi neustarten und fertig.