ShowModal bei einer Form -> Rückgabe Wert?

Hagbard · Beiträge: 142 Win XP Home / Pro D7.1 Architekt

Hallo zusammen,

kann mir jemand sagen, wie Ich wenn Ich eine Form schließe eine Wert
vom Typ Integer oder Boolean zurückgeben kann???

Ich öffne die Form mit

markieren

Quelltext

1:	frmBlaBla.ShowModal;

Viele Grüße,
Christian

Pascal · Beiträge: 155 Win 98, Win XP Delphi 2005, Delphi 5

Du kannst eine Variable Rückgabewert definieren, OnClose dieser Variable einen Wert zuweisen, und diesen dann nach dem frmblabla.showmodal abfragen.

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Hallo!

Das brauchst Du gar nicht. Du kannst der Form, die Du mit ShowModal anzeigst, ein ModalResult (Form2.ModalResult := ...) zuweisen. Durch Zuweisung eines ModalResults wird die Form geschlossen und ShowModal (if Form2.ShowModal = ...) gibt in der aufrufenden Prozedur den entsprechenden Wert zurück!

MfG
Peter

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

Hagbard · Beiträge: 142 Win XP Home / Pro D7.1 Architekt

Vielen Dank!!! :-)

Pott · Beiträge: 21 Windows Delphi 5

Genau das geht bei mir nicht!!!!

Abhängig davon, welchen Schalter ich drücke soll mrOk oder mrCancel vom Dialog-Formular zurückgegeben werden.
Ich erhalte aber immer den Wert 2 als Rückgabewert, egal welchen Button ich klicke.

Rückgabeprüfung:

markieren

Delphi-Quelltext

1:
2:
3:
4:

  if rfDialog.ModalResult = mrOK then
    ShowMessage('Ok')
  else
    ShowMessage('Nicht Ok');

Ich habe bereits im Dialog-Formular:

markieren

Delphi-Quelltext

1:
2:

  BtnCancel.ModalResult:=mrCancel;
  BtnOk.ModalResult:=mrOk;

gesetzt.

Moderiert von raziel: Delphi-Tags hinzugefügt.

Pott · Beiträge: 21 Windows Delphi 5

Ich weiß nicht warum, aber in meinem Programm
funktionert mrOk und mrCancel ohne, dass ich ModalResult abfrage.

Vermutlich arbeitet die Prozedur, die den Dialog aufruft, nichts mehr ab und springt einfach aus dieser Prozedur.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme