掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
yes/noを聞いて処理する方法 (ID：8708)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんばんわです。 舌足らずでしたね。 呼び出し元 //----------------------------------------------- procedure TForm1.Button1Click(Sender: TObject); var i:Integer; begin i:=Form2.ShowModal; case i of mrYes: Showmessage('はい'); mrNo : Showmessage('いいえ'); else Showmessage('それ以外'); end; //----------------------------------------------- 呼び出され先 //----------------------------------------------- procedure TForm2.Button1Click(Sender: TObject); begin ModalResult := mrYes; end; procedure TForm2.Button2Click(Sender: TObject); begin ModalResult := mrNo; end; とりあえずTModalResultをヘルプってみてください。 整数型なので独自仕様でいくなら適当な数値でもOKです。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.