01: procedure TForm1.Button1Click(Sender: TObject);
02: var
03: i: Integer;
04: x: Integer;
05: begin
06: with Query do
07: begin
08: Close;
09: SQL.Clear;
10: SQL.Add('SELECT * FROM EMP');
11: Open;
12: end;
13: x := 0;
14: for i := 0 to NextDBGrid.Columns.Count -1 do
15: begin
16: // ShowMessage(NextDBGrid.Columns[i].Name);
17: if NextDBGrid.Columns[i].ClassType = TNxDBNumberColumn then
18: begin
19: inc(x);
20: TNxDBNumberColumn(FindComponent('NxDBNumberColumn' + IntToStr(x))).SpinButtons := False; // ERROR HERE!!! not good code!! why???
21: end;
22: end;
23: end;
Find content
Not Telling
