Вопрос по MonthCalendar и UpDown
1)Как добавить компоненту MonthCalendar события OnMouseMove и OnMouseleave или нужно искать другой аналогичный компонент?
2) На форме UpDown и асоциированный с ним Edit. Не могу по ходу работы программы присвоить значение ни в Edit.Text ни в UpDown.Position,постоянно 0. Код: DateTime(a,b,c,d); Edit.text:=IntTostr(c); Пробовал так: DateTime(a,b,c,d); UpDown.Position:=c, и тоже не меняется :(
Как поменять значение в поле Edit?
2) На форме UpDown и асоциированный с ним Edit. Не могу по ходу работы программы присвоить значение ни в Edit.Text ни в UpDown.Position,постоянно 0. Код: DateTime(a,b,c,d); Edit.text:=IntTostr(c); Пробовал так: DateTime(a,b,c,d); UpDown.Position:=c, и тоже не меняется :(
Как поменять значение в поле Edit?
1. Перехватить соотв. событие? Искать другой компонент - занятие для ламера.
2. Не понял, что ты хочешь увидеть в своем Edit'е... Нельзя повнятней?
2. Не понял, что ты хочешь увидеть в своем Edit'е... Нельзя повнятней?
Цитата: Washington
1. Перехватить соотв. событие? Искать другой компонент - занятие для ламера.
Это повторное использование кода :D
С Єдитом решил,нужен календарь чоб ловил мув/энтер и лив. Может кто-нить пример кода написать?
1. Юзать Д2009 и выше. Хотя не помню, в 2007 может тоже уже было.
2.
[highlight=delphi]
TMyMonthCalendar=class(TMonthCalendar)
procedure CMMouseEnter(var Msg: TMessage); message CM_MouseEnter;
procedure CMMouseLeave(var Msg: TMessage); message CM_MouseLeave;
end;
[/highlight]
2.
[highlight=delphi]
TMyMonthCalendar=class(TMonthCalendar)
procedure CMMouseEnter(var Msg: TMessage); message CM_MouseEnter;
procedure CMMouseLeave(var Msg: TMessage); message CM_MouseLeave;
end;
[/highlight]