Lauftext von rechts nach links

[DeddyH]

Delphi-Quellcode:

sndPlaySound(nil, 0);

[Natcree]

Ja aber selbst wenn ich diesen einsetze spielt er bei 200 milsek. im timer den Sound nur einmal ab

Delphi-Quellcode:

  canvas.textout(50+i*10,50,s[i]);
  sndPlaySound(nil, 0);
  sndPlaySound('c:\delphi progs\fenster\windows navigation start.wav',SND_async);

[DeddyH]

Dann läuft vermutlich Dein Timer zu schnell, so dass das Sound abspielen nicht mehr hinterher kommt.

[Natcree]

kann mann da was machen????

[DeddyH]

Keine Ahnung. Wie ist es so?

Delphi-Quellcode:

Timer.Enabled := false;
sndPlaySound(nil, 0);
canvas.textout(50+i*10,50,s[i]);
sndPlaySound('c:\delphi progs\fenster\windows navigation start.wav',SND_async or SND_FILENAME); 
Timer.Enabled := true;

[Natcree]

keine änderung hmmmm????

[Natcree]

komisch bei menushowdelay in der registry kann man auf null setzen und er spielt es auch gut ab. wieso geht es hier nicht.

[Natcree]

Was muss ich machen wenn Der Textout in einem Label erscheinen soll ??

Habe mal das ausprobiert passiert aber nichts

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
a:String;
i:integer;
begin
  a:='Anrede';
  inc(i);
  if i > length(a)then
  begin
  timer1.Enabled:=false;
  exit;
  end;
  Label1.canvas.textout(296+i*16,50,a[i]);
end;

[DeddyH]

Schau Dir mal den Wert von i im Debugger an, dann wirst Du merken, dass das so nicht funktionieren kann.

[Natcree]

Var i might not have been initialized. Welchen wert muss ich denn i geben ( inc(i); ) scheint ja denn nicht zu funtionieren