如何在DBGRID上加入其它元件? |
|
尚未結案
|
|
qekhfn
一般會員   發表：8 回覆：9 積分：3 註冊：2003-06-01 發送簡訊給我 |
|
|
P.D.
版主   發表：603 回覆：4038 積分：3874 註冊：2006-10-31 發送簡訊給我 |
|
|
sos_admin
版主 發表：121 回覆：697 積分：768 註冊：2003-07-23 發送簡訊給我 |
|
|
qekhfn
一般會員 發表：8 回覆：9 積分：3 註冊：2003-06-01 發送簡訊給我 |
|
|
P.D.
版主 發表：603 回覆：4038 積分：3874 註冊：2006-10-31 發送簡訊給我 |
|
|
Ethan
版主 發表：101 回覆：170 積分：78 註冊：2006-07-05 發送簡訊給我 |
|
|
qekhfn
一般會員 發表：8 回覆：9 積分：3 註冊：2003-06-01 發送簡訊給我 |
|
|
morepatric
一般會員 發表：9 回覆：17 積分：5 註冊：2003-07-21 發送簡訊給我 |
一、下面是用畫的，你可以試試看： procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
DrawFrameControl(StringGrid1.Canvas.Handle, rect, DFC_BUTTON, DFCS_BUTTONCHECK);
end; procedure TForm1.StringGrid1Click(Sender: TObject);
var
aRect: TRect;
begin
aRect := StringGrid1.CellRect(StringGrid1.Col, StringGrid1.Row);
DrawFrameControl(StringGrid1.Canvas.Handle, aRect, DFC_BUTTON, DFCS_CHECKED);
end; 二、另外你也可以直接放CheckBox在StringGrid1上，再調位置。
|
|
qekhfn
一般會員 發表：8 回覆：9 積分：3 註冊：2003-06-01 發送簡訊給我 |
|
|
JasonSu
一般會員 發表：1 回覆：10 積分：7 註冊：2003-06-26 發送簡訊給我 |
在onDrawColumnCell事件用API DrawFrameControl
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
If Column.Field.DataType = ftBoolean Then Begin
Canvas.FillRect(Rect);
If Column.Field.AsBoolean Then
DrawFrameControl(DBGrid1.Canvas.Handle, Rect, DFC_BUTTON, DFCS_CHECKED);
Else
DrawFrameControl(DBGrid1.Canvas.Handle, Rect, DFC_BUTTON, DFCS_BUTTONCHECK);
End;
end; 以下文章可參考
http://delphi.ktop.com.tw/topic.php?topic_id=28032
http://delphi.ktop.com.tw/topic.php?topic_id=21804
http://delphi.ktop.com.tw/topic.php?topic_id=37816
|
發表時間：2003-08-21 19:14:01
IP:61.59.xxx.xxx 未訂閱
系統時間：2025-01-31 10:44:56
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |