Posted on 1998-12-29
I'm writing a TCalendar component based on TPanel. Each day is an object witch ancestor is TCustomPanel.
In Order to perform a period selection i use each days's Drag/Drop events with something like this :
If source is TCustomPanel then
// code for painting the selected period
All of this works nice.
Here is my problem :
In case of the source is not TCustomPanel I want to raise an event from the TCalendar, with those parameters :
Sender : Tobject ; TheDate:TDate
1) How do i create my own event on the TCalendar
2) How does each TJour could raise this event with the parameters
PS : Each day "knows" witch date is represents
Thanks in advance