关于dbgrid中一个单元格点后出现类...的按钮,我想与时间或其它控件结合怎么办啊?!怎么个使用方法?!
解决方案 »
- bigint类型的变量 ,在delphi中用inttohex函数出错 ,怎么解决?
- 调用WinRAR命令时,如何得知rar压缩文件已经完成?
- 请问大家Stream.WaitForData(timeout)中的timeout设成什么才能做到一直等直到有数据来?
- 关于oracle数据打包的问题
- 怎样实现StringGrid的某一列的宽度自动适应列中的字符串长度?
- 请问怎么读取一个TXT文件里来判断他里面是不是空的(即TXT里没有内容)
- 知道对方IP,怎样在程序里确认对方是否在线?
- 100分求crystal report 8.5的安装密码/CD_KEY
- 请教:关于PageControl控件的使用
- 急问!!sql语句的出错原因,请大家多多相助!!
- 关于Wb Services的安全问题:怎样做到只有授权用户可以访问?
- 谁有矢量绘图的代码?
现抄个代码
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if(gdFocused in State) then
begin
if(Field.FieldName = DBComboBox1.DataField) Then
begin
DBComboBox1.Left := Rect.Left + DBGrid1.Left;
DBComboBox1.Top := Rect.Top + DBGrid1.Top;
DBComboBox1.Width := Rect.Right - Rect.Left;
DBComboBox1.Height := Rect.Bottom - Rect.Top;
DBComboBox1.Visible := True;
end;
end;end;procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
if DBGrid1.SelectedField.FieldName = DBComboBox1.DataField then
begin
DBComboBox1.Visible := false;
end;
end;procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if(Key<>chr(9)) then
begin
if(DBGrid1.SelectedField.FieldName = DBComboBox1.DataField)then
begin
DBComboBox1.SetFocus;
SendMessage(DBComboBox1.Handle,WM_Char,word(Key),0);
end;
end;
end;