dbgrid中下拉comcobox实现
在dbgrid中可以,在dbgribeh中不行了
procedure Tgudingzichanjixietaizhang.DBGridEh1ColExit(Sender: TObject);
begin
begin
If DBGridEh1.SelectedField.FieldName = DBComboBox1.DataField then
begin
DBComboBox1.Visible:=false;
end;
If DBGridEh1.SelectedField.FieldName = DBedit1.DataField then
begin
DBedit1.Visible:=false;
end;
end;end;procedure Tgudingzichanjixietaizhang.DBGridEh1DrawDataCell(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 + DBGridEh1.Left;
DBComboBox1.Top := Rect.Top + DBGridEh1.Top;
DBComboBox1.Width := Rect.Right - Rect.Left;
DBComboBox1.Height := Rect.Bottom - Rect.Top;
DBComboBox1.Visible:=true;
end;
if (Field.FieldName = DBedit1.DataField ) then
begin
DBedit1.Left := Rect.Left + DBGridEh1.Left;
DBedit1.Top := Rect.Top + DBGridEh1.top;
DBedit1.Width := Rect.Right - Rect.Left;
DBedit1.Height := Rect.Bottom - Rect.Top;
DBedit1.Visible := True;
end;
end;
end;procedure Tgudingzichanjixietaizhang.DBGridEh1KeyPress(Sender: TObject;
var Key: Char);
begin
begin
if (key <> chr(9)) then
begin
if (DBGridEh1.SelectedField.FieldName =DBComboBox1.DataField) then
begin
DBComboBox1.SetFocus;
SendMessage(DBComboBox1.Handle, WM_Char, word(Key), 0);
end;
if (DBGridEh1.SelectedField.FieldName =DBedit1.DataField) then
begin
DBedit1.SetFocus;
SendMessage(DBedit1.Handle, WM_Char, word(Key), 0);
end;
end;
end;end;
在dbgrid中可以,在dbgribeh中不行了
procedure Tgudingzichanjixietaizhang.DBGridEh1ColExit(Sender: TObject);
begin
begin
If DBGridEh1.SelectedField.FieldName = DBComboBox1.DataField then
begin
DBComboBox1.Visible:=false;
end;
If DBGridEh1.SelectedField.FieldName = DBedit1.DataField then
begin
DBedit1.Visible:=false;
end;
end;end;procedure Tgudingzichanjixietaizhang.DBGridEh1DrawDataCell(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 + DBGridEh1.Left;
DBComboBox1.Top := Rect.Top + DBGridEh1.Top;
DBComboBox1.Width := Rect.Right - Rect.Left;
DBComboBox1.Height := Rect.Bottom - Rect.Top;
DBComboBox1.Visible:=true;
end;
if (Field.FieldName = DBedit1.DataField ) then
begin
DBedit1.Left := Rect.Left + DBGridEh1.Left;
DBedit1.Top := Rect.Top + DBGridEh1.top;
DBedit1.Width := Rect.Right - Rect.Left;
DBedit1.Height := Rect.Bottom - Rect.Top;
DBedit1.Visible := True;
end;
end;
end;procedure Tgudingzichanjixietaizhang.DBGridEh1KeyPress(Sender: TObject;
var Key: Char);
begin
begin
if (key <> chr(9)) then
begin
if (DBGridEh1.SelectedField.FieldName =DBComboBox1.DataField) then
begin
DBComboBox1.SetFocus;
SendMessage(DBComboBox1.Handle, WM_Char, word(Key), 0);
end;
if (DBGridEh1.SelectedField.FieldName =DBedit1.DataField) then
begin
DBedit1.SetFocus;
SendMessage(DBedit1.Handle, WM_Char, word(Key), 0);
end;
end;
end;end;
解决方案 »
- 当所有窗体都设为Available forms时,有多少种方法能选择启动Main form.
- 如何编程实现在网页上选中类似TRadioButton控件的按钮选项?
- delphi 如何实现网站刷IP的操作
- 10.1 放分 还有一个原因 嘿嘿(小伍放分贴)
- 请问。如和实现一个文件包含其他.exe执行文件。
- query中的sql语句中的单引号双引号我总是弄不清楚,帮我总结一下,请指教,在线给分!!
- 高手请进
- 菜鸟问题
- 关于查找两个字符字段相连与某一值相等的sql语句怎样写?
- 请问数据库里MEMO类型的字段怎么处理?
- 为什么找不到orbpas.dcu文件?
- 高手看过来。自己用delphi建立FTP主目录时,如何设置用户与密码?
该如何色之?〉
listsource是你要查找的表的表连接