Einzelnen Beitrag anzeigen

eddie11

Registriert seit: 8. Nov 2005
Ort: Zossen bei Berlin
236 Beiträge
 
Delphi XE8 Professional
 
#6

AW: Android: MessageDlg Logik

  Alt 26. Jan 2015, 14:24
Wie wärs denn damit?

Delphi-Quellcode:
procedure TForm1.Button16Click(Sender: TObject);
begin
  if not Confirm('Willst Du?') then
    Exit
  // Weiter gehts erst nach Click
end;

function TForm1.Confirm(const AText:String):Boolean;
var
  geklickt: Boolean;
  Ergebnis: Boolean;
begin
  Ergebnis := false;
  geklickt := false;
  MsgDialog(AText,TMsgDlgType.mtConfirmation,[TMsgDlgBtn.mbYes,TMsgDlgBtn.mbNo],TMsgDlgBtn.mbYes,
     procedure(const AResult: TModalResult)
     begin
       Ergebnis := (AResult=mrYes);
       geklickt := true;
     end);
  repeat
    Application.ProcessMessages();
  until geklickt;
  Result := Ergebnis;

end;
Gruß
Eddie
Edgar Leifeld
Liebe Grüße aus Zossen bei Berlin

Die Kontramedüse ist verdrupelt!!!
  Mit Zitat antworten Zitat