iwunit1.pas

来自「Delphi 应用举例」· PAS 代码 · 共 44 行

unit IWUnit1;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes, IWDBStdCtrls, DB, DBTables, Classes,
  Controls, IWControl, IWGrids, IWDBGrids, IWExtCtrls,DBCtrls, IWDBExtCtrls,
  IWCompMemo;

type
  TformMain = class(TIWAppForm)
    IWDBGrid1: TIWDBGrid;
    DataSource1: TDataSource;
    Table1: TTable;
    Table1NAME: TStringField;
    Table1SIZE: TSmallintField;
    Table1WEIGHT: TSmallintField;
    Table1AREA: TStringField;
    Table1BMP: TBlobField;
    IWDBNavigator1: TIWDBNavigator;
    IWDBImage1: TIWDBImage;
    IWMemo1: TIWMemo;
    procedure IWDBGrid1RenderCell(ACell: TIWGridCell; const ARow,
      AColumn: Integer);
  public

  end;

implementation
{$R *.dfm}

uses
  ServerController;

procedure TformMain.IWDBGrid1RenderCell(ACell: TIWGridCell; const ARow,
  AColumn: Integer);
begin
  if (acolumn=1) and (arow>0) then
  acell.Text:=''
end;

end.