TStringGridで行を増やすには？

解決

smily 2007-11-27 21:56:51 No: 28704

再びGridに関する質問です。
環境はDelphi７を使用しています。

データベースから取ってきたデータを
TStringGridに表示し、
そのGrid内を↓ボタン、Enterキーなどで動かせるようになっているとき、
一番下の行で↓ボタンを押すと、一行追加させるようにしたいのですが、
どのようにソースを書いたらよいのか分からないので、
どなたか、ヒントをいただけないでしょうか？

初歩の質問で済みませんが、よろしくお願いします。

KHE00221 2007-11-27 22:12:11 No: 28705

procedure TForm3.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if Key = 40 then
    begin
      if StringGrid1.Row = (StringGrid1.RowCount-1) then
      begin
        StringGrid1.RowCount := StringGrid1.RowCount + 1;
      end;
    end;
end;

これで１番したの行で ↓ を押すと１行追加されます

smily 2007-11-28 00:12:37 No: 28706

返信が遅くなってしまいすみません。

早速の回答ありがとうございます。
思っていた動作をさせることが出来ました。
ありがとうございます。