請教各位高手,如果我動態產生一個monthcalendar,當click這個元件時,我想在 onclick的事件中撰寫script,請問要如何才能達成.

Monthcalendar 本身沒 onClick 事件,不過有方法可以設定 :    

Type
  TC = Class(TControl);
  Form1 = Class(TForm)
....
    MonthCalendarClick(Sender : TObject); //在這個Method 寫 onClick 要做的事    procedure TForm1.Button1Click(Sender: TObject);
var MC : TMonthCalendar
begin
  MC := TMonthCalendar.Create(self);
  MC.top := 100;
  ....
  TC(MC).onClick := MonthCalendarClick;
end;

有關 TC(MC) 這種做法的例子與說明請參看拙作 : 【Delphi】【發表】在 Runtime 讓使用者自由的拉動所有元件的位置和大小 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=31513 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=31557

引言: Monthcalendar 本身沒 onClick 事件,不過有方法可以設定 :

Type
  TC = Class(TControl);
  Form1 = Class(TForm)
....
    MonthCalendarClick(Sender : TObject); //在這個Method 寫 onClick 要做的事    procedure TForm1.Button1Click(Sender: TObject);
var MC : TMonthCalendar
begin
  MC := TMonthCalendar.Create(self);
  MC.top := 100;
  ....
  TC(MC).onClick := MonthCalendarClick;
end;

有關 TC(MC) 這種做法的例子與說明請參看拙作 : 【Delphi】【發表】在 Runtime 讓使用者自由的拉動所有元件的位置和大小 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=31513 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=31557

謝謝JUSTMADE版主,我會好好拜讀大作...