掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
GridPanelで実行時に行を挿入する方法 (ID:35794)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
GridPanelで実行時に行を挿入する方法を教えてください。 下記のコードはフォームにScrollBoxを貼り付け、その上にGridPanelを配置している状態です。(GridPanelのAlign=alTopにして) そしてボタンを一個配置してボタンを押す度にフレームをGridPanelの1行として追加しています。 現状追加はできているのですが、行の挿入をしたくてヘルプを見ているのですが良く分かりません。 行の追加自体は何もしていなくて、FrameのParentをGridPanelにしているだけです（これも正しいのか分かりませんが...） ※GridPanelはColumnCollectionを列0を100%、RowCollectionは行0を自動としています。 よろしくお願いします。 procedure TForm1.Button1Click(Sender: TObject); var F: TFrame2; begin F := TFrame2.Create(Self); Inc(Counter); //CounterはIntegerのデータです F.Name := 'FrameRow' + IntToStr(Counter); F.Parent := GridPanel1; GridPanel1.Height := F.Height * Counter; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.