Dialoge unter IOS und Anroid _> FMX unbenutzbar ?

[NickD]

Hallo,
ich würde hier gerne nochmal das Thema aufgreifen.
Da ShowModal unter iOS nicht mehr verwendbar ist, habe ich versucht alles auf Show umzustellen.
In den meisten Fällen gelingt das auch.

Wie sieht es jedoch mit folgender Konstruktion aus(Als Beispiel):
1. Form1 ruft Form2 mit einem String-Parameter auf
2. Form2 verarbeitet den String und soll diesen verarbeiteten String, nach einem Button Klick an Form1 zurückgeben
(Unit der Form1 soll nicht in Unit der Form2 eingebunden werden, da Form2 in mehreren Formen verwendet werden soll.)

Wie bekomme ich den verarbeiteten String der Form2 nun als Ergebnis zurück?

Mit ShowModal hätte ich in der Anonymen Procedure den String ausgelesen.

Hoffe ihr könnt mir einen kurzen Denkanstoß geben

mfg Nick.

[Schokohase]

Schreib dir doch eine Methode ShowWithCloseCallback( ACloseCallback: TProc ) und rufe diesen Callback auf, wenn die Form geschlossen wird.

Das sollte mit ein paar Zeilen Code erledigt sein.

[TurboMagic]

Um es mal etwas detaillierter zu erläutern:

Unit Unit2;

interface

type
TMyCallback = procedure(Sender: TObject; s: string) of Object;

TForm2 = class(TForm)
[..]
private
FMyCallback : TMyCallback;
public
procedure ShowWithCallback(Callback: TMyCallback);
end;

[..]

procedure TForm2.ShowWithCallback(Callback: TMyCallback);
begin
assert(assigned(Callback), 'Es muss ein Callback übergeben werden');
FMyCallback := Callback;
end;

Im OnClose wird es dann so aufgerufen:

FMyCallback(self, 'mein Rückgabewert');

Und Form1 braucht natürlich eine Public Methode wie folgt:

procedure TForm1.Form2ReturnCode(Sender: TObject; ReturnValue: string);

Grüße

TurboMagick