Einzelnen Beitrag anzeigen

Benutzerbild von St.Pauli
St.Pauli

Registriert seit: 26. Dez 2004
351 Beiträge
 
Delphi 7 Personal
 
#25

Re: Lauftext mal ganz anderst

  Alt 6. Sep 2005, 16:27
Ist zwar schon beantwortet, aber ich hab auch ne Idee:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := 'Lauftext allez';
  while Label1.Top > 0 do //Stoppt am oberen Ende des Windows
    begin
      Label1.Top := Label1.Top-1;
      Application.ProcessMessages;
      Sleep(10);
    end;
end;
Was haltet ihr davon? Nur so ne Frage
Gruß St.Pauli
  Mit Zitat antworten Zitat