Endlose Folge von Messagedlg's

[Xoraz]

Hallo

was ich vorhabe ist folgendes:
Der Benutzer soll bei Klick auf ein Button eines Messagedlg auf eine weitere Dialogbox verwiesen werden, von dort auf eine weitere.
Mit dem Befehl if /then/ else ist nur eine Folge möglich, egal ob ich auf Ja/nein klicke.

Zitat:

if
messagedlg('Text1.', mtinformation,[mbYes, mbNO], 0)=mryes
then begin
messagedlg('Text2a.', mtconfirmation,[mbok], 0)
end
else
messagedlg('Text2b.', mtconfirmation,[mbYes], 0)

wie kann man die Folge erweitern?

thx im voraus

[Steve]

Hi,

genauso wie Du bisher den Rückgabewert auswertest, so kannste das auch bei Text2a usw. machen:

Delphi-Quellcode:

if messagedlg('Text1.', mtinformation,[mbYes, mbNO], 0)=mryes then 
begin
  if messagedlg('Text2a.', mtconfirmation,[mbok], 0)=mrYes then
  begin
  ...
  end
  else
  begin
  ...
  end;
end
else
  messagedlg('Text2b.', mtconfirmation,[mbYes], 0)

Geschickter wäre es aber, da ne Funktion drumrumzubauen. Auch ein Case würde sich evtl. lohnen

Gruß
Stephan :dance:

[Xoraz]

thx.

mit funktion hab ich aber noch keine so richtige ahnung.

[Luckie]

Wozu braucht man eine unendliche Folge von Dialogen? falls das ein Scherzprgramm werden soll, worst du dazu in der DP keinerler Unterstützung finden.

[PierreB]

Noch einfacher wäre es einfach nen Timer zu nehmen, dass Intervall ziemlich niedrig setzen und in den Timer einfach MessageDLG reinschreiben. Ich muss mich trotzdem Luckie anschließen, ein solches Programm ist einfach nur völlig schwachsinnig.

[MathiasSimmack]

Schwachsinn? Aber warum bietest du dann eine Lösung an? :roll:

[Khabarakh]

Zitat:

Zitat von PierreB

Noch einfacher wäre es einfach nen Timer zu nehmen, dass Intervall ziemlich niedrig setzen und in den Timer einfach MessageDLG reinschreiben. Ich muss mich trotzdem Luckie anschließen, ein solches Programm ist einfach nur völlig schwachsinnig.

Dann kann man ja gleich "while true do MessageDlg ..." verwenden. Xoraz will aber verschachtelte MessageDlgs, auch wenn unendlich viele Dialoge damit auch nicht sinnvoller werden.

[Binärbaum]

Mit diesen verschachtelten if-Anweisungen kann man nicht unendlich viele sondern nur sehr viele MessageDlg anzeigen lassen. Schleißlich ist jeder Quelltext endlich, und spätestens nach der 20. "Verschachtlung" wird der Code so unübersichtlich, dass selbst der Programmierer da nicht mehr oder nur noch sehr schwer durchsieht. Einzige Möglichkeit wäre eine Endlosschleife, aber das macht ziemlich wenig Sinn.

MfG
Binärbaum

[semo]

manche leute haben einfach nur langeweile :gruebel:

[Binärbaum]

[OT]

Zitat:

Zitat von computer-glossar.de

manche leute haben einfach nur langeweile :gruebel:

Aber wenn man langeweile hat, braucht man sich keine MessageDlgs in einer Endlosschleife anzutun.

MfG
Binärbaum
[/OT]

[Sharky]

Bleibt bitte beim Thema!

OffTopic ist in jedem Fall nicht erwünscht!

[Xoraz]

:-D
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:

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 :gruebel: du kannst doch mit einer CASE abfrage prüfen was gedrückt wurde und je nach den reagieren :gruebel: oder nicht?
Aber 20 abfragen ineinander sind echt n bissl viel .. ^^

[EDIT]

Zitat:

Zitat von Xoraz

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

:shock: ...
[/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.