Registriert seit: 8. Nov 2005
Ort: Zossen bei Berlin
236 Beiträge
Delphi XE8 Professional
|
AW: Android: MessageDlg Logik
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!!!
|