名前
題名
▼ Syakeさん > 忘れてた、Gridの作成 > > procedure TForm1.Button4Click(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; > > まあ、こんな感じでよろしいのでしょうか？ > > DEKOサンの所にあった、枠のオリジナル描画 > http://blogs.embarcadero.com/teamj/2011/11/14/2598/ > 参考になります。 > > ただ、これは決め打ちなのでデータによっての描画は無理なようだと私的には > 解釈しました。 > なので、これからも試行錯誤が続きそうです。
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link