2

コードhttp://jed-software.com/blog/?p=538を使用して、ユーザーが MAC OSX の下のフォルダーを選択できるようにしています。メイン フォームにボタンを配置し、このボタンをクリックして NSOpenPanel を開くと、正常に動作します。

ただし、ShowModal でモーダル ウィンドウを開き、このモーダル ウィンドウにボタンを配置し、このボタンをクリックして NSOpenPanel を開き、NSOpenPanel でフォルダーを選択した後、[OK] または [キャンセル] ボタンをクリックしても、NSOpenPanel とこのモーダルの両方ウィンドウが自動的に閉じます。

この問題を解決するための助けに感謝します。

4

1 に答える 1

1

ボタンの がとModalResult等しくない場合mrNone

ShowModalのあるフォームを開いた場合、

 Form2.ShowModal;

Button1 on Form2

ここに画像の説明を入力

プログラム コードがイベントで実行された後Button1Click(...)。

procedure TForm2.Button1Click(Sender: TObject);
begin
   OpenDialog1.Execute;
end;

OpenDialog1が閉じられると、すぐForm2に終了します。またはで
終わるかどうかは問題ではありません。OpenDialog1okcancel

于 2014-01-24T17:48:18.433 に答える