アプリ実行中のDBGrid表のハミ出し表示を避けるには (ID:41749)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

>>DBGrid表の上（枠外）に突然２行ほどハミ出し表示されます。

>これは、今まで表示されていなくて、環境が変わったり、ソースコードを
>変更してから出たのですか？
>それとも、単純にDBGridを使ったテストプログラムでも発生しますか？

WindowsXPで開発した時は問題なかったのですが、Windows7に移してから
気づきました。ソースコードは変更していません。

>>表全体を検索中に起きるようです。

>この部分は、具体的には、ソースコードではどのような記述をしています
>か？

function BRChosa(BTO: Integer): Integer;
var
  N: Integer;
  TNB: Integer;
begin
  for N := 1 to 10 do
    begin
      BRT[N,1] := 0;
    end;
  with  DataModule1.DBISAMQuery2 do
  begin
    TNB := Fields[0].AsInteger;
    N := 0;
    while not EOF do
    begin
      if Fields[6].AsInteger = BTO then
      begin
        N := N + 1;
        BRT[N,1] := Fields[0].AsInteger; // TNB
        BRT[N,2] := Fields[2].AsInteger; // TES
        BRT[N,3] := Fields[3].AsInteger; // COL
        BRT[N,4] := Fields[4].AsInteger; // PST
      end;
      Next;
    end;
    Result := N;
    First;
    MoveBy(TNB - 1); // カーソル戻し
  end;
end;

>OnDrawColumnCellイベントで何か処理をしていますか？

していません。

>Delphi6は最新のUpdateは適用していますか？

していません。

for N := 1 to 10 do
    begin
      BRT[N,1] := 0;
    end;
  with  DataModule1.DBISAMQuery2 do
  begin
    TNB := Fields[0].AsInteger;
    N := 0;
    while not EOF do
    begin
      if Fields[6].AsInteger = BTO then
      begin
        N := N + 1;
        BRT[N,1] := Fields[0].AsInteger; // TNB
        BRT[N,2] := Fields[2].AsInteger; // TES
        BRT[N,3] := Fields[3].AsInteger; // COL
        BRT[N,4] := Fields[4].AsInteger; // PST
      end;
      Next;
    end;
    Result := N;
    First;
    MoveBy(TNB - 1); // カーソル戻し
  end;
end;

←解決時は質問者本人がここをチェックしてください。

戻る