Блокировка кнопок компонента Calendar

[Makc]

На форме есть компонент Calendar. При выборе даты прога читает из базы данных запись, сделанную этого числа. Проблема в том, что записи делаются нерегулярно. Например, 1-го, 2-го, 5, 20 и т.п. Вопрос: как заблокировать ненужные кнопки? То есть если записи нет, то кнопочку нажать нельзя...
Примерно такая же процедура есть в востановлении системы у Win XP.

[tyomitch]

наверное, MCM_SETDAYSTATE поможет

[Makc]

tyomitch, на примере показать можешь?

[tyomitch]

Нет, это, похоже, не то; это всего лишь окольный путь к свойству DayBold.

А пример, вот он:

Код: Выделить всё

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const MCM_FIRST = &H1000&
Private Const MCM_SETDAYSTATE = MCM_FIRST + 8

Private Sub Form_DblClick()
Dim State(2) As Long: State(1) = &HBADC0DE
Debug.Print SendMessage(MonthView1.hWnd, MCM_SETDAYSTATE, 3, State(0))
End Sub


[Makc]

Пример интересный, однако это не совсем то, что мне нужно... Здесь происходит выделение определенных чисел. А как их заблокировать?