|
> ▼ Mr.XRAYさん
> > ですが，コードが画像なので，やる気起こりません．
>
> そんなマスターのために
忘れてました。
Gridの作成
のコードを実行すると上記の内容が描画されます。
procedure TForm1.Button1Click(Sender: TObject);
var
i :Integer;
begin
with StringGrid1 do
begin
RowCount := 20;
for i := 0 to 7 do
begin
AddObject(TStringColumn.Create(StringGrid1));
Columns[i].Width := 100;
(Columns[i] as TColumn).Header := 'Title' + IntToStr((Columns[i] as TColumn).Index);
(Columns[i] as TStringColumn).ReadOnly := True;
end;
ShowHeader := False; // ヘッダーを表示するか
ShowVertLines := False; // Cellの境界縦線を描画するか(True,False)
//ShowHorzLines Cellの境界横線を描画するか(True,False)
//ShowScrollBars スクロールバーを表示するか
//ShowSelectedCell アクチブなCellを白抜き表示するか(True,False)
end;
end;
・・・多分
|
