掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
MonthCalendarで特定の日を一度だけ太字や赤色にするには？ (ID:26075)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
本当にありがとうございます。 けれどやっぱりできません… unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, CommCtrl, ComCtrls; type TForm1 = class(TForm) MonthCalendar1: TMonthCalendar; procedure FormCreate(Sender: TObject); private { Private 宣言 } public { Public 宣言 } end; //年対応GetMonthInfoイベント TOnGetMonthInfoExEvent = procedure(Sender: TObject; Year, Month: LongWord; var MonthBoldInfo: LongWord) of object; //TMonthCalendarを継承、年対応GetMonthInfoを用意 TMonthCalendarEx=class(TMonthCalendar) procedure CNNotify(var Message: TWMNotify); message CN_NOTIFY; protected FOnGetMonthInfoEx: TOnGetMonthInfoExEvent; published property OnGetMonthInfoEx: TOnGetMonthInfoExEvent read FOnGetMonthInfoEx write FOnGetMonthInfoEx; end; var Form1: TForm1; mcex: TMonthCalendarEx; implementation {$R *.DFM} //年対応メッセージ処理 以下は教えて頂いた通りなのですが、何かおかしいでしょうか？
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.