請問關於DBGRID 和datetimepicker 的搭配!! |
尚未結案
|
hmjhmj
一般會員 發表:20 回覆:7 積分:5 註冊:2002-08-17 發送簡訊給我 |
|
pedro
尊榮會員 發表:152 回覆:1187 積分:892 註冊:2002-06-12 發送簡訊給我 |
|
deity
尊榮會員 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
|
deity
尊榮會員 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
引言: 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"> 按多了一份,请版主大人给予删除 發表人 - |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |