fesiharslan yazdı:Merhaba;
Formu Modal olarak oluşturarak deneyin.
Örneğin;
Kod: Tümünü seç
var
frmOrnek: TFrm2;
begin
// sizin kodlarınız
// sizin kodlarınız
frmOrnek := TFrm2.Create(nil);
frmOrnek.ShowModal(
procedure(ModalResult: TModalResult)
begin
// Form modal durumunda yapılacak işlemler...
end
);
// sizin kodlarınız
// sizin kodlarınız
end;
İyi çalışmalar...
kodu aşağıdaki şekilde ayarladım. ancak her hangi bir sonuç alamadım. form karşıma çıkmıyor. ama toastlar çalışıyor...
procedure TForm4.BroadcastReceiver1Receive(Context: JContext; Intent: JIntent);
{$IFDEF ANDROID}
var
telephonyManager: JTelephonyManager;
obj: JObject;
Temp: String;
frmOrnek: TFrm2;
begin
if not BroadcastReceiver1.HasPermission('android.permission.READ_PHONE_STATE') then
begin
ShowMessage('You don''t have permission for Read Phone State!');
Exit;
end;
Obj := SharedActivityContext.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE);
telephonyManager := TJTelephonyManager.Wrap( (obj as ILocalObject).GetObjectID );
Temp := JStringToString(intent.getStringExtra(StringToJString('incoming_number')));
if Temp.Length > 0 then
begin
Toast('In coming call number: '+Temp,TToastLength.ShortToast);
frmOrnek := TFrm2.Create(nil);
frmOrnek.ShowModal(
procedure(ModalResult: TModalResult)
begin
// Form modal durumunda yapılacak işlemler...
end
);
end
else
Toast('No Number..',TToastLength.ShortToast);
{$ELSE}
begin
{$ENDIF}
end;