掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ド素人の質問です。 (ID:23204)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
年は自動的に変わっても、表示は自分でしなおさないとダメです。Form1にTCalendarとTButton×2を置いて、ボタンのクリックイベントを次のようにしてみて下さい。 procedure TForm1.Button1Click(Sender: TObject); begin //カレンダーに前の月を表示 Calendar1.PrevMonth; //タイトルバーに日付を表示 Caption := IntToStr(Calendar1.Year) + '/' + IntToStr(Calendar1.Month) + '/' + IntToStr(Calendar1.Day); end; procedure TForm1.Button2Click(Sender: TObject); begin //カレンダーに次の月を表示 Calendar1.NextMonth; //タイトルバーに日付を表示 Caption := IntToStr(Calendar1.Year) + '/' + IntToStr(Calendar1.Month) + '/' + IntToStr(Calendar1.Day); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.