Einzelnen Beitrag anzeigen

Benutzerbild von City Light
City Light

Registriert seit: 17. Sep 2002
314 Beiträge
 
#1

ein Buchstaben Ticker mit Timer & PlaySound

  Alt 4. Jun 2003, 20:53
Hallo ich versuche einen Buchstaben Ticker zu bauen ,aber so das bei jedem Buchstabe ein Sound zu hören ist...nur ist mir diese Methode zu langsam. Gibt es die Möglichkeit es schneller zu machen
Delphi-Quellcode:
procedure TForm1.Timer2Timer(Sender: TObject);
const
  MATRIX_TEXT = 'Wake up Neo';
begin
  with label1 do
  begin
    if Length(Caption) < Length(MATRIX_TEXT) then
      Caption := Caption + MATRIX_TEXT[Length(Caption) + 1];
    PlaySound('c:\Sound.wav', 0, SND_FILENAME);
  end;
end;
Bis bald man liest sich
Tino
  Mit Zitat antworten Zitat