掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
yes/noを聞いて処理する方法 (ID：8706)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
begin //日付取得 datNow := Now; //年月日分解 decodeDate(datNow,YY,MM,DD); //日付表示 Label2.Caption := '今日は '+IntToStr(YY)+'年'+IntToStr(MM)+ '月'+IntToStr(DD)+'日'; //指定日設定と確認 Yoteibi := 26 ; if Yoteibi = DD then begin //送信実施のメッセージ Form2.Showmodal; Form2.Refresh; Label3.Caption := '指定日となっております。' ; //各メールの設定 ShowMessage('指定した相手にメール送信行います。'); Atesaki := ''; Kenmei := '件名は、テストです。'; Hassin := 'Auto-Mail'; Mailserver := ''; Bun1 := '題名：てすと'; Bun2 := 'これは、テスト用データです。'; honbun := Bun1 +Char($D) +Bun2; //メールの送信 IdSMTP1.QuickSend(Mailserver,Kenmei,Atesaki,Hassin,Honbun); end else //このプログラム終了 Application.Terminate; end; end. 上記のようにして ＦＯＲＭ２で表示させ止りましたが、ｙｅｓ／ｎｏのボタンを押したときのそれぞれの処理は、どこに書けばいいのでしょうか？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.