Endlose Folge von Messagedlg's

[Sharky]

Bleibt bitte beim Thema!

OffTopic ist in jedem Fall nicht erwünscht!

[Xoraz]

ihr übertreibt schon ein bisschen
okay, ich hätt vlt nicht "endlos" in den topic schreiben sollen, sondern einfach nur "mehrere Folgen"

ich wollte nur einen möglichst einfachen Befehl um mehrere Dialogboxen per klick hintereinander aufzurufen.
(20 würde ich schon als "endlos" bezeichnen.)

@luckie: ja, das soll ein Scherzprogramm werden^^

@computer-glossar: stimmt.

[Xoraz]

ps es können auch messageboxen sein.

wäre vlt einer so nett und könnte mir so ein beispiel mit funktionen oder case of anweisungen hier posten?

[Speedmaster]

Delphi-Quellcode:

while FResult = mrYes do
 case Dialog of
 1: 
 begin
   FResult := messagedlg('Text1a.', mtconfirmation,[mbok], 0);
   inc(Dialog);
 end;
 2: 
 begin
   FResult := messagedlg('Text2a.', mtconfirmation,[mbok], 0);
   inc(Dialog);
 end;
 3: 
 begin
   FResult := messagedlg('Text3a.', mtconfirmation,[mbok], 0);
   Dialog := 1;
 end;
end;

[Xoraz]

thx.

bingrad am ausprobieren.

[TeronG]

Zitat von Xoraz:

Mit dem Befehl if /then/ else ist nur eine Folge möglich, egal ob ich auf Ja/nein klicke.

Warum das denn du kannst doch mit einer CASE abfrage prüfen was gedrückt wurde und je nach den reagieren oder nicht?
Aber 20 abfragen ineinander sind echt n bissl viel .. ^^

[EDIT]

Zitat von Xoraz:

@luckie: ja, das soll ein Scherzprogramm werden^^

...
[/EDIT]

[Matze]

Solche Scherzprogramme könne wir nicht unterstützen, auch wenn du nun leider schon die Lösung kennst.

[MrSpock]

Wie Matze schon gesagt hat. Lösung ist da und das Thema muss nicht weiter behandelt werden.

Ich mach hier mal zu.