Android uygulama Messagebox kullanımı Hakkında ..

[BABASOFT]

Arkadaşlar android uygulamada messagebox ,messagedlg kullanmak istiyorum.Normal VCL uygulamasında kullandığım
gibi kullandım olmadı.Bu konuda yardımcı olabilen varsa sevinirim..
Teşekkürler..

[sheshman]

Bildiğim kadarıyla messagedlg kitaplığı Delphide Android 5.x ile artık kullanılamıyor, ancak showmessage aktif. Messagedlg yerine ücretsiz olan Toast ve FGX Activity Dialogs kullanabilirsin, yalnız bu iki component IOS desteklemez sadece android üzerinde çalışır.

[barisatalay]

Aşağıdaki yapıyı bir dener misiniz.

Kullanımı:

Kod: Tümünü seç

MesajSorgusu('Çıkış yapmak istediğinize emin misiniz?', [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo],
                       procedure (const AResult: TModalResult)
                       begin
                          if AResult = mrYes then
                          begin
                           //Çalışacak kodlarınız.
                          end;
                       end)

Kod: Tümünü seç

function MesajSorgusu(Mesaj: String; AButtons: TMsgDlgButtons; ACloseDialogProc: TInputCloseDialogProc): TModalResult;
var
  SResult: TModalResult;
begin
  MessageDlg(Mesaj, TMsgDlgType.mtConfirmation, AButtons, 0, TMsgDlgBtn.mbNo,
             procedure(const AResult: TModalResult)
             begin
               ACloseDialogProc(AResult);
               SResult := AResult;
             end
            );

  while SResult = 0 do
  begin
    Application.ProcessMessages;
  end;

  Result := SResult; // = mrYes;
end;

Edit: 20.11.2015 - MessageDlg ' e gönderilen parametreyi yanlış yazmışım düzelttim.