database內有一欄值是NULL,請問在valueunchecked屬性中如何顯示NULL,我試過'',' ',NULL都不行,多謝賜教!

您好﹗    DBCheckBox.ValueUnChecked := VarToStr(Null);    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

Hi cchan,    試試

procedure TForm1.Button2Click(Sender: TObject);
begin
  DBCheckBox1.ValueUnChecked := Chr(0);
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

多謝各位回應,但兩個方法試了都不能解決問題。 我set valuechecked = 'Y', valueunchecked = 'N',如果是NULL,它會變成灰色,但打勾,請問有無方法令它不打勾。

您好﹗    試試將DBCheckBox元件的AllowGrayed屬性設為False    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

cashsin2002, 已是false,都是不行。

由於State = cbGrayed 使用的是系統圖示。 本身元件並沒有提供替換或選擇的功能。 解決方式： 1. 更換 Resource 2. 自己畫(覆蓋上去)。

Type
  TDBCheckBox = Class(DBCtrls.TDBCheckBox)
  Private
    BoxRect :TRect;
  Protected
    procedure Loaded; override;
    Procedure BMSETCHECK(Var Message:TMessage);Message BM_SETCHECK;
    procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
  end;
  TForm1 = class(TForm)
  ....
....
procedure TDBCheckBox.Loaded;
begin
  with TBitmap.Create do
    try
      Handle := LoadBitmap(0, PChar(32759));
      BoxRect := Rect(0,2,Width div 4,2 (Height div 3));
    finally
      Free;
    end;
end;    Procedure TDBCheckBox.BMSETCHECK(Var Message:TMessage);
var
  ARect :TRect;
begin
  inherited;
  ARect := BoxRect;
  Windows.InvalidateRect(Handle,@ARect,True);
end;    procedure TDBCheckBox.WMPaint(var Message: TWMPaint);
var
  DC    : HDC;
begin
  inherited;
  if State<>cbGrayed then Exit;
  
  DC := GetWindowDC(Handle);
  Try
    DrawFrameControl(DC, BoxRect, DFC_BUTTON, DFCS_BUTTON3STATE or DFCS_INACTIVE);
  finally
    ReleaseDC (Handle, DC);
  end;
end;

參考。

Try it as following, procedure TTemp.DBCheckBox1Click(Sender: TObject); begin if TDBCheckBox(Sender).state=cbGrayed then TDBCheckBox (Sender).state:= cbUnchecked; end; Good Luck !

不知這篇能不能幫忙你解決問題...^^ http://delphi.ktop.com.tw/topic.php?topic_id=64084

試試在AfterScroll事件中加入以下... if FieldByName('valuechecked').Value:=NULL then begin DBCheckBox1.Checked:=false; DBCheckBox1.Enabled:=false; end else DBCheckBox1.Enabled:=true;