if column.Field.DataType=字段类型 then if (GDFocused in state) then //焦点 begin if Column.Field.FieldName='字段名称' then do something...
dbgrideh的静态列的buttonstyle设为cbsEllipsis在dbgrideh的oneditbuttonclick procedure TForm1.DBGridEh1EditButtonClick(Sender: TObject); begin 让含有datetimepicker的窗体show出来 end;
用第三方控件:Info Power 3000 or Ehlib
如何判斷當有焦點是在日期型字段上? procedure TForm1.DBGrid1CellClick(Column: TColumn); var i : integer; begin if dbgrid1.SelectedField = adoquery1.FieldByName(‘日期型字段名’) then begin MonthCalendar1.Visible := true; end;
if (GDFocused in state) then //焦点
begin
if Column.Field.FieldName='字段名称' then
do something...
procedure TForm1.DBGridEh1EditButtonClick(Sender: TObject);
begin
让含有datetimepicker的窗体show出来
end;
procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
i : integer;
begin if dbgrid1.SelectedField = adoquery1.FieldByName(‘日期型字段名’) then
begin
MonthCalendar1.Visible := true; end;