procedure SetDbGridEHPropertyA(AGrid: TDBGridEh; AFilter: Boolean = false); var i: Integer; begin with AGrid do begin UseMultiTitle := True;
// OptionsEh:=OptionsEh+[dghEnterAsTab];
for i := 0 to Columns.Count - 1 do if Columns[i].Width >= 180 then Columns[i].Width := 100;
RestoreGridLayOutA(AGrid);
if AFilter then begin STFilter.Local := True;--出错地方 STFilter.Visible := True; --出错地方 end; end; end;
Build [Error] uInterCOL.pas(200): Undeclared identifier: 'STFilter' [Error] uInterCOL.pas(201): Missing operator or semicolon [Fatal Error] Unit1.pas(45): Could not compile used unit 'uInterCOL.pas'