Forum: Programmieren allgemein
by Natcree,
19. Nov 2013
habe wohl den Auslöser gefunden in meiner mainform wird ein video als Hintergrund abgespielt. das Ganze mit der tmediaplayer komponente. Wenn ich diesen abschalte dann laufen die timer durch. Woran kann das liegen??
Forum: Programmieren allgemein
by Natcree,
19. Nov 2013
danke für euer bemühen.
momentan sieht mein Code noch so aus
procedure TForm2.Button1Click(Sender: TObject);
begin
timer1.enabled:=true;
delay(2200, Application);
timer2.Enabled:=true;
delay(4800, Application);
Forum: Programmieren allgemein
by Natcree,
19. Nov 2013
der Code sollte so aussehen das der Timer ein wort in Buchstaben splittet und einzeln nacheinander zusammensetzt. Zudem wird ein sound ausgegeben der bei jedem Buchstaben der einrückt zu hören ist.
Gibt es ein resulttyp den ich in den codeschnipsel mit Einbauen kann?
Denn nur wenn canvas fertig ist kann ich die nächste zeile genauso über canvas ausgeben.
Abwarten muss ich auch wegen der Sound...
Forum: Programmieren allgemein
by Natcree,
19. Nov 2013
ja muss aber abwarten bis Canvas fertig ist. weil zum text.out ja noch der mediaplayer läuft und stopt wenn canvas.textout fertig ist. Der Player wird dann auch im timer2 benötigt.
Forum: Programmieren allgemein
by Natcree,
19. Nov 2013
Ich habe mehre TTimer die nacheinander aktiviert werden sollen. Im Timer1 siehe code bsp. wird ein text auf die Form geschrieben nun soll wenn der Text mit Canvas.textout geschrieben ist der 2. Timer Aktiviert werden.
Sorry Volker Z.
Ich hatte vor über boolean den 2. Timer zu aktivieren habe es aber nicht hin bekommen.
Wie und wo kann ich in meinen Code den 2.Timer aktivieren ?
...
Forum: Programmieren allgemein
by Natcree,
18. Nov 2013
Hallo ich möchte mit Canvas was auf die Form Zeichnen. Wenn der Timer1 fertig ist bzw er alles geschrieben hat dann soll Timer2 aktiviert werden Hier mal der code ich kriege es nicht hin
procedure TForm2.Timer1Timer(Sender: TObject);
begin
a:='Anrede:'+' Herr';
inc(i);
if i > length(a)then
begin
Canvas.Font.Name := 'CLARENCE'; //Schriftart
Canvas.Font.Style := ; //Fett