dbGrid______cxGrid 转换问题,高分请教!急急急急急急急急!!!!!!!
dbgrid中的DbGridEx1ColExit和DbGridEx1DrawColumnCell事件要在cxgrid中实现怎么办!
具体的参数怎么对应的! 在线等待!
代码如下:
///////////DbGridEx1ColExit////////////////
procedure TFrmInitialGoods.DbGridEx1ColExit(Sender: TObject);
begin
If DBGridEx1.SelectedField.FieldName = '简写码' then
DBEdit1.Visible := false;
end;
//////////////////////////
/////////////////////////DbGridEx1DrawColumnCell////////////////////////////////
procedure TFrmInitialGoods.DbGridEx1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if (gdFocused in State) then
begin
if Column.FieldName = '简写码' then
begin
DBEdit1.Left := Rect.Left + DBGridEx1.Left + 2;
DBEdit1.Top := Rect.Top + DBGridEx1.top + 2;
DBEdit1.Width := Rect.Right - Rect.Left;
DBEdit1.Height := Rect.Bottom - Rect.Top;
DBEdit1.Visible := True;
DBEdit1.Clear;
DBEdit1.Text := Column.Field.AsString;
if DBEdit1.Enabled then DBEdit1.SetFocus;
end;
end;
inherited;
end;