Einzelnen Beitrag anzeigen

TurboMagic

Registriert seit: 28. Feb 2016
Ort: Nordost Baden-Württemberg
2.856 Beiträge
 
Delphi 12 Athens
 
#23

AW: Dialoge unter IOS und Anroid _> FMX unbenutzbar ?

  Alt 23. Jun 2018, 13:46
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
  Mit Zitat antworten Zitat