Календарь

[19920808]

помогите создать OnChange на Calendar

[Sibedir]

Сори. Сразу не понял, что ТС имел ввиду.
------------------------------------------------

А для решения вашей задачи походу нужно пол компонента переписать.

[Sibedir]

Кстати. Возможно вам подойдет мое решение, которое мне пришлось как-то использовать в подобной ситуации. Суть решения заключается в том, что компонент, который нужно было усовершенствовать "оборачивался в обертку". Это был объект с полями, как у исходного класса и хранил в себе скрытый экземпляр этого самого класса. Всем необходимым свойствам нового объекта были поставлены в соответствие свойства скрытого экземпляра. А обработчики свойст нового класса снабжались дополнительными процедурами. Ну как-то так.
Примитивное решение вашей задачи во вложении:
OnChange для Calendar.zip

[19920808]

мммм,мне нужно использовать OnChange для создания событий(Planing software(нажал на день и оно откривает новую форму с лист виев собитий)),и не в монзкалендарь а в семпл-Calendar...но всеровно спасибо за помощ)))

[Sibedir]

Там уже усть OnChange, зачем его создавать?
Вам вот это нужно?

procedure TForm1.Calendar1Change(Sender: TObject);
begin
  Form2.ShowModal;
end;

[19920808]

хмммм,спасибо

[19920808]

а как еще зделать чтобы при клике на какоето число в компоненте календар откривалась форма 2 и значения листвиев присваивалось той дате???

[Sibedir]

Перед вызовом второго окна, заполните значениями его компоненты. Типа того:

procedure TForm1.Calendar1Change(Sender: TObject);
begin
  Form2.Caption := 'Работа с ' + s;
  Form2.Edit3.Text := s;
  Form2.ShowModal;
end;

P.S.: Если вы имели в виду ListView, так и пишите. А то сиди гадай: Что за листвиев.

[19920808]

а что за переменная S???

[19920808]

сорри за то что туплю()