小弟用在多個欄位旁各設一個button 按button後會跑出form1 在form1中設一個tcalendar 設tcalendar event為按兩下就可把日期值 show到該欄位 一個欄位對一個tcalendar沒問題 但小弟想共用一個tcalendar不知如何作? 「堅持」從洗馬桶做起 Aric

button1.onClick :
with TCalendarForm.Create(self) do
try
  if showmodel = mrOK then
    Table1.FieldByName('Field1Name').Value := Calendar1.CalendarDate;
finally
  free;
end;
 
button2.onClick :
with TCalendarForm.Create(self) do
try
  if showmodel = mrOK then
    Table1.FieldByName('Field2Name').Value := Calendar1.CalendarDate;
finally
  free;
end;

如此類推

引言: >< face="Verdana, Arial, Helvetica"> 「堅持」從洗馬桶做起 Aric