掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
MonthCalendarで特定の日を一度だけ太字や赤色にするには？ (ID:26069)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
↓これでウマクいくはず...と思ってもジツはウマクいかない。 procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject; Month: Cardinal; var MonthBoldInfo: Cardinal); var Y, M, D: Word; begin DecodeDate(MonthCalendar1.Date, Y, M, D); if (Y = 2007)and(M = 5) then begin MonthCalendar1.BoldDays([8], MonthBoldInfo); end; end; ナゼかというと、このイベントは「月」が切り換わる前に呼ばれるから。 Month引数を使えば「月」は問題ないけど「年」が問題。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.