Gespräch simulieren??

[thechus]

Liebes Forum,

ich möchte, dass Gesprächstexte zeitlich versetzt auf verschiedenen Panels erscheinen.
Leider bekomme ich das nicht hin
Mein Ansatz ist folgender:

Code:

procedure TJesusS.Dialog;
var n :integer;
begin
 panel1.visible := true;
 panel2.visible := true;
 n := 0;
 repeat
 sleep(100);
 n := n + 1;
 if n = 1 then panel1.caption := 'HA!';
 if n = 10 then panel2.caption := 'HA!';
 until n = 10;
end;

Leider führt er alle Befehle gleichzeitig aus
Ich hab's auch schon mit einem Timer versucht.
Da kam das selbe bei raus.

Ich hoffe ihr könnte mir helfen...

Danke und Gruß,
thechus

[haentschman]

nun ja... bei Sleep 100ms und 10 Durchläufen ist nach 1s alles fertsch... Für dich sieht es dann nach alles auf einen Blick aus, da innerhalb der Schleife keine Nachrichten abgearbeitet werden und somit erst danach alles gezeichnet wird (Stichwort: ApplicationProcessMessages).

Versuche noch einmal dein Vorhaben detailierter zu beschreiben.

[Furtbichler]

Es reicht nicht, per "Panel1.Caption := ... " dem Panel zu sagen, welcher Text dort erscheinen soll, man muss dem Panel (bzw. Windows) auch ne Chance geben, das mal zu zeichnen.
Stichwort "Application.ProcessMessages".

[thechus]

Hmm okay...

Also.. wenn ich die Zeiten verlängere, taucht die Schrift einfach nur viel später auf. Trotzdem beide gleichzeitig.

Ich habe folgendes vor:
Ich habe einen kleinen Kampf simuliert.
Am ende bleiben 2 Kämpfer übrig und Jesus taucht auf.
Und jetzt möchte ich ein Gespräch zwischen den beiden Kämpfern und Jesus programmieren.
Die Lösung die mir dazu einfiel war, dass ich zu jeder Figur einen Panel habe, auf dem zeitlich versetzt die Gesprächszeilen rechtzeitig ei- und ausgeblendet werden.

Das "zeitlich versetzt" bekomme ich nicht hin.

Ich hoffe, dass das genug Info ist,

danke und Gruß,
thechus

[thechus]

Na gut danke.
Ich mach mich da mal schlau.

[thechus]

Ahh

Sauber hat geklappt! Danke

Hier der Code für Leute, die das selbe Problem haben:

Code:

procedure TJesusS.Dialog;
var n :integer;
begin
 panel1.visible := true;
 panel2.visible := true;
 n := 0;
 repeat
 sleep(1000);
 n := n + 1;
 Application.ProcessMessages;
 if n = 1 then panel1.caption := 'HA!';
 if n = 10 then panel2.caption := 'HA!';
 until n = 10;
end;

Vielen Dank!
Das ist Hilfe, wie ich mir sie vorstelle.

Gruß,
thechus

[himitsu]

Mach dich auch besser mal über Timer schlau.
TTimer

[thechus]

Ja Chef!

[Romiox]

Ist jetzt vielleicht mehr so ne Kleinigkeit, aber schöner fänd ich ja, wenn du das neuzeichnen veranlassen würest nachdem du neue Captions setzt, und nicht davor. Das juckt in der Schleife vielleicht nicht, aber mich irgendwie

[himitsu]

Zitat von Romiox:

Ist jetzt vielleicht mehr so ne Kleinigkeit, ...

Gut, hier sind die Ausgaben dadurch um 100 1000 Millisekunden verzögerst.

Abgesehn davon, daß weder Schleife noch ProcessMessages nötig sind.