DBGrid 中正在編輯的欄位底色只能是白色嗎? |
|
答題得分者是：Mickey
|
|
chlo
一般會員   發表：7 回覆：13 積分：4 註冊：2003-04-17 發送簡訊給我 |
請問各位先進高手:
DBGrid 中正在編輯的欄位底色只能是白色嗎? procedure TFrm_Main.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with TCustomDBGridCracker(Sender) do begin
if DataLink.ActiveRecord = Row - 1 then
begin
Canvas.Brush.Color := WordBack;
Canvas.Font.Color:=clblue;
end;
end;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end;
|
|
Mickey
版主  發表：77 回覆：1882 積分：1390 註冊：2002-12-11 發送簡訊給我 |
|
|
chlo
一般會員 發表：7 回覆：13 積分：4 註冊：2003-04-17 發送簡訊給我 |
|
|
Mickey
版主 發表：77 回覆：1882 積分：1390 註冊：2002-12-11 發送簡訊給我 |
procedure TForm1.DataSource1StateChange(Sender: TObject);
begin
if (DBGrid1.ComponentCount>0) then
if (TDataSource(Sender).State in [dsEdit,dsInsert]) then
TInplaceEdit(DBGrid1.Components[0]).Brush.Color := clRed
else
TInplaceEdit(DBGrid1.Components[0]).Brush.Color := clWhite;
end;
|
|
chlo
一般會員 發表：7 回覆：13 積分：4 註冊：2003-04-17 發送簡訊給我 |
發表時間：2004-02-21 18:06:03
IP:211.76.xxx.xxx 未訂閱
系統時間：2024-06-29 16:24:16
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |