J
johnlhr
Unregistered / Unconfirmed
GUEST, unregistred user!
當我用以下語句進行作業時,在c/s結釵下沒問題,當在三層下時出現明顯閃爍,請問各位有何辦漢取消
此種現象
procedure TMAINFACEF.DBGrid1DrawDataCell(Sender: TObject;
const Rect: TRect; Field: TField; State: TGridDrawState);
begin
if ((gdfocused in state) or (gdselected in state)) and (field.fieldname='CARD_CATEGORY') then
begin
DBComboBox1.Left:=rect.left+DBGrid1.Left+1;
DBComboBox1.top:=rect.top+DBGrid1.top+1;
DBComboBox1.width:=rect.right-RECT.left;
DBComboBox1.height:=rect.bottom-RECT.top;
DBComboBox1.Visible:=true;
end;
end;
此種現象
procedure TMAINFACEF.DBGrid1DrawDataCell(Sender: TObject;
const Rect: TRect; Field: TField; State: TGridDrawState);
begin
if ((gdfocused in state) or (gdselected in state)) and (field.fieldname='CARD_CATEGORY') then
begin
DBComboBox1.Left:=rect.left+DBGrid1.Left+1;
DBComboBox1.top:=rect.top+DBGrid1.top+1;
DBComboBox1.width:=rect.right-RECT.left;
DBComboBox1.height:=rect.bottom-RECT.top;
DBComboBox1.Visible:=true;
end;
end;