Android/Java では、次のようにします。
Intent intent = new Intent(Intent.ACTION_PICK);
intent.setType(ContactsContract.CommonDataKinds.Phone.CONTENT_TYPE);
startActivityForResult(intent, PICK_CONTACT);
次の結果を取得します。
@Override public void onActivityResult(int reqCode, int resultCode, Intent data)
Delphi には、最初の部分に相当するものがあります。
Intent := TJIntent.Create;
Intent.setAction(TJIntent.JavaClass.ACTION_PICK);
Intent.setType(TJContactsContract_Contacts.JavaClass.CONTENT_TYPE);
MainActivity.startActivityForResult(Intent,PICK_CONTACT);
しかし、MainActivity の下を見ると、「onActivityResult」コールバックが表示されません。JFragment の 1 つが表示されますが、それを取得するのに適切な場所にあるようには見えず、サンプル コード、オンライン、またはソース コードに例がありません。