下面是我做的源程序， 功能是实现用sncCurrency在表格里显示金额， 另外隔行显示不同颜色
unit dbtest;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, DBGrids, ExtCtrls, DBCtrls, StdCtrls, Mask, ComCtrls, Grids,
sncCurrency, sncDBCurrency, ToolWin, ADODB;
type
TForm1 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
sncDBCurrencyInplaceEdit: TsncDBCurrencyEdit;
ToolBar1: TToolBar;
DBNavigator1: TDBNavigator;
ADOQuery1: TADOQuery;
procedure SetHighLightColor;
procedure SetNormalColor;
procedure DBGrid1ColEnter(Sender: TObject);
procedure DBGrid1ColExit(Sender: TObject);
procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
procedure sncDBCurrencyInplaceEditEnter(Sender: TObject);
procedure sncDBCurrencyInplaceEditExit(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure sncDBCurrencyInplaceEditMoveOut(Sender: TObject;
var Key: Word; Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
const
CurrencyFieldSet: array[0..2] of string=('dj', 'Freight', 'AmountPaid');
var
Form1: TForm1;
implementation
{$R *.DFM}
function CheckCurrencyField(FieldName: String): Boolean;
var
I: Integer;
begin
Result := False;
for I:=0 to Length(CurrencyFieldSet)-1 do
begin
if (FieldName=CurrencyFieldSet) then
begin
Result := True;
Break;
end;
end;
end;
procedure TForm1.SetHighLightColor;
begin
sncDBCurrencyInplaceEdit.Color := clHighLight;
sncDBCurrencyInplaceEdit.Font.Color := clWhite;
end;
procedure TForm1.SetNormalColor;
begin
sncDBCurrencyInplaceEdit.Color := DBGrid1.Color;
sncDBCurrencyInplaceEdit.Font.Color := DBGrid1.Font.Color;
end;
procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
if CheckCurrencyField(DBGrid1.SelectedField.FieldName) then
begin
sncDBCurrencyInplaceEdit.DataField := DBGrid1.SelectedField.FieldName;
sncDBCurrencyInplaceEdit.Tag := 1;
end;
end;
procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
if CheckCurrencyField(DBGrid1.SelectedField.FieldName) then
begin
sncDBCurrencyInplaceEdit.Visible := false;
sncDBCurrencyInplaceEdit.Tag := 0;
end;
end;
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if (key<>chr(9)) and CheckCurrencyField(DBGrid1.SelectedField.FieldName) then
begin
sncDBCurrencyInplaceEdit.SetFocus;
SendMessage(sncDBCurrencyInplaceEdit.Handle, WM_Char, WORD(Key), 0);
end;
end;
procedure TForm1.sncDBCurrencyInplaceEditEnter(Sender: TObject);
begin
SetNormalColor;
end;
procedure TForm1.sncDBCurrencyInplaceEditExit(Sender: TObject);
begin
SetHighLightColor;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
sncDBCurrencyInplaceEdit.Color := DBGrid1.Color;
sncDBCurrencyInplaceEdit.Font.Assign(DBGrid1.Font);
sncDBCurrencyInplaceEdit.Tag := 0;
end;
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
OldColor, OldFontColor: TColor;
begin
if CheckCurrencyField(Column.FieldName) then
begin
if (gdFocused in State) then
begin
sncDBCurrencyInplaceEdit.Left := Rect.Left + DBGrid1.Left+2;
sncDBCurrencyInplaceEdit.Top := Rect.Top + DBGrid1.top+2;
sncDBCurrencyInplaceEdit.Width := Rect.Right-Rect.Left;
sncDBCurrencyInplaceEdit.Height := Rect.Bottom- Rect.Top;
SetHighLightColor;
if (sncDBCurrencyInplaceEdit.Tag=1) and not sncDBCurrencyInplaceEdit.Visible then
sncDBCurrencyInplaceEdit.Visible := True;
end
else
begin
OldColor := sncDBCurrencyInplaceEdit.Color;
OldFontColor := sncDBCurrencyInplaceEdit.Font.Color;
SetNormalColor;
DrawCurrencyFrame(DBGrid1.Canvas, Rect, sncDBCurrencyInplaceEdit, Column.Field.AsFloat);
sncDBCurrencyInplaceEdit.Color := OldColor;
sncDBCurrencyInplaceEdit.Font.Color := OldFontColor;
end;
end;
//隔行显示不同颜色
if not Odd(TDBGrid(Sender).DataSource.DataSet.RecNo) then begin
TDBGrid(Sender).Canvas.Brush.Color := clSkyBlue;
TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
procedure TForm1.sncDBCurrencyInplaceEditMoveOut(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
case Key of
VK_UP,VK_DOWN,VK_LEFT,VK_RIGHT:
begin
DBGrid1.SetFocus;
SendMessage(DBGrid1.Handle, WM_KEYDOWN, WORD(Key), 0);
end;
end;
end;
end.
上面的这段代码是我用dbgrid实现的， 但是我把dbgrid换成了dxDBGrid1（改名为dbgrid)
就出错。
if CheckCurrencyField(DBGrid1.SelectedField.FieldName) then //这句错
[Error] dbtest.pas(79): Undeclared identifier: 'SelectedField'
