델파이 Android 애플리케이션 - ShowModal 양식으로 mrCancel 처리

Question

Android 애플리케이션에 Marco Cantu's ShowModal example을 사용하고 있습니다.

procedure TForm1.Button1Click(Sender: TObject); 
var 
Form2: TForm2; 
begin 
Form2 := TForm2.Create(nil); 
Form2.ShowModal(
    procedure(ModalResult: TModalResult) 
    begin 
     if ModalResult = mrOK then 
     begin 
     ShowMessage('OK'); 
     Form2.DisposeOf; 
     end 
    { else 
     begin 
     ShowMessage('Cancel'); 
     Form2.DisposeOf; 
     end;} 
     end); 
end; 

가 어떻게이 mrCancel을 처리하나요 : 어떻게 당신은 여기

mrCancel

에 대한 내 코드입니다 처리하나요? 사용자가 데이터를 입력해야하는 컨트롤이있는 양식이있는 경우 해당 양식을 취소하고 기본 양식으로 돌아갈 수있는 옵션을 제공하고 싶습니다.

2 차 양식의 확인 버튼에 mrOK를 한 것처럼 취소 버튼에 대해 mrCancel에 모달 결과를 지정했음을 유의해야합니다. 확인 버튼은 잘 작동하지만 취소 버튼을 클릭하면 앱이 아무 것도하지 않고 확인 버튼을 다시 클릭 할 수 없도록 만듭니다.

내가 할 수 있었던 나는 가정했을

다음

var 
Form2: TForm2; 
begin 
Form2 := TForm2.Create(nil); 
Form2.ShowModal(
    procedure(ModalResult: TModalResult) 
    begin 
     if ModalResult = mrOK then 
     begin 
     ShowMessage('OK'); 
     Form2.DisposeOf; 
     end 
     end); 
end; 

그리고 난 취소 버튼의 modalresult 속성에 mrCancel을 할당 할 수 있었어야 -하지만 당신은이

Answer 1

작동하지 않습니다 어떤 ModalResult에 상관없이 DisposeOf()으로 전화하십시오. 결과가 mrOk 인 경우 현재 전화하고 있습니다. 대신 다음을 수행하십시오.

procedure TForm1.Button1Click(Sender: TObject); 
var 
    Form2: TForm2; 
begin 
    Form2 := TForm2.Create(nil); 
    Form2.ShowModal(
    procedure(ModalResult: TModalResult) 
    begin 
     if ModalResult = mrOK then 
     ShowMessage('OK') 
     else 
     ShowMessage('Cancel'); 
     Form2.DisposeOf; 
    end 
); 
end;