[FMX] Wann ist TMessageDlg tatsächlich geschlossen?
Ab Delphi XE7 gibt es ja die Möglichkeit, einen non-blocking TMessageDlg mit einer anonymen Methode zu verwenden. Funktioniert ja im Prinzip auch, nur habe ich zumindest unter iOS das Problem, dass bei der Abarbeitung dieser Methode der Dialog immer noch sichtbar (und mir in diesem Fall im Weg) ist. Gibt es eine elegante Möglichkeit, den Rückgabewert auszuwerten und mit der weiteren Verarbeitung zu warten, bis sich der Dialog wirklich verabschiedet hat?
Danke fürs Lesen. |
AW: [FMX] Wann ist TMessageDlg tatsächlich geschlossen?
Erst mal 42! (Weil kein Source gepostet)
Ob der Dialog nun blocking oder nonblocking ist... Im Normalfall musst Du die Verarbeitung ja anhalten um auf die Antwort von User zu warten... Unter Android muss es nonBlocking sein, unter iOS nicht, daher mache ich das so:
Delphi-Quellcode:
Mavarik
function MyMessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;
{$IFDEF ANDROID} var MsgDlgResult : Integer; {$ENDIF} begin {$IFDEF ANDROID} MsgDlgResult := -1; FMX.Dialogs.MessageDlg(Msg, DlgType, Buttons, HelpCtx, procedure(const AResult: TModalResult) begin MsgDlgResult:= AResult; end); while MsgDlgResult<0 do begin Application.Processmessages; Sleep(10); end; Result := MsgDlgResult; {$ELSE} Result := FMX.Dialogs.MessageDlg(Msg, DlgType, Buttons, HelpCtx); {$ENDIF} end; |
AW: [FMX] Wann ist TMessageDlg tatsächlich geschlossen?
Application.ProcessMessages und Eleganz beißt sich zwar IMO (zumindest unter VCL), aber es geht wohl nicht anders. Mit einem Sack voll IFDEFs habe ich das nun mittlerweile auch in den Griff bekommen, trotzdem Danke.
|
AW: [FMX] Wann ist TMessageDlg tatsächlich geschlossen?
Zitat:
|
AW: [FMX] Wann ist TMessageDlg tatsächlich geschlossen?
Zitat:
Zitat:
|
AW: [FMX] Wann ist TMessageDlg tatsächlich geschlossen?
Zitat:
Und: Wenn deine Lösung so einfach und gut funktioniert, warum hat Emba das dann nicht als Standard eingebaut? |
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:37 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz