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]