請問: 我在DBGRID上有個日期的欄位!! 當我在做新增資料的時候, 在DBGRID中只能用輸入資料的方式!! 可是我想在那欄位上,用DateTimePicker 的方式,讓使用者可以用選擇的方式去選取想要的日期!! 請問在使用delphi內建的元件之下,我要怎麼做阿??

hmjhmj您好 需要一些步驟, 請參考下面前輩的方案 http://delphi.ktop.com.tw/topic.php?topic_id=38422 http://delphi.ktop.com.tw/topic.php?topic_id=48816

hmjhmj 您好： 将datetimepicker内置于dbgrid之中，下面应该是您所要的 http://delphi.about.com/library/weekly/aa121503a.htm 祝好运 ——行径窄处，留一步与人行——

引言: hmjhmj 您好： 将datetimepicker内置于dbgrid之中，下面应该是您所要的 http://delphi.about.com/library/weekly/aa121503a.htm 参照写了一段，不知对不对< >，可自行修正，希望对您有所帮助< >： 首先将表open，然后再进行下面的操作 procedure TForm1.DBGrid1ColExit(Sender: TObject); begin if DBGrid1.SelectedField.FieldName='Dat' then DateTimePicker1.Visible := False end; procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if (key = Chr(9)) then Exit; if (DBGrid1.SelectedField.FieldName='Dat') then begin DateTimePicker1.SetFocus; SendMessage(DateTimePicker1.Handle, WM_Char, word(Key), 0); end; end; procedure TForm1.DateTimePicker1Change(Sender: TObject); begin if DBGrid1.DataSource.State in [dsEdit, dsInsert] then query1.FieldByName('dat').Value:= DateTimePicker1.DateTime; end; procedure TForm1.DateTimePicker1DropDown(Sender: TObject); begin DBGrid1.DataSource.Edit; end; procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if (gdFocused in State) then begin if (Column.Field.FieldName ='Dat') then with DateTimePicker1 do begin Left := Rect.Left DBGrid1.Left 1; Top := Rect.Top DBGrid1.Top 1; Width := Rect.Right - Rect.Left 2; Width := Rect.Right - Rect.Left 2; Height := Rect.Bottom - Rect.Top 2; Visible := True; end; end end; 试试看 < face="Verdana, Arial, Helvetica"> 按多了一份，请版主大人给予删除 發表人 -