問題タブ [tlabel]

現在、2 つの TLabels と 1 つの TEdit を動的に作成し、それらに LblDesc+i、EdtAmount+i、LblUnit+i という名前を付けています。ここで、i は、これら 3 つの要素を追加するたびに 1 ずつ反復する整数です。要素内のデータは、シミュレーションのみを目的としています。私の問題は、3 つのオブジェクトを削除することです。free と FreeAndNil を試してみましたが、まったくうまくいきませんでした。どんな助けでも大歓迎です。

テキストを表示するためにTMemoinを使用し、ヘッダー情報として on top を使用します。メモがスクロールボックスよりも広い場合もあります。もちろん、メモを左右にスクロールしてメモ内のテキストを表示することもできます。スクロールボックスの表示領域の中央に常にヘッダーとしてラベルを付けたいと思います。設定でこれを行うことができますが、動作しますが、前後にスクロールするとちらつき、揺れます。メモはスムーズに動きますが、ラベルは動きません。TScrollBoxTLabelHorizontal scroll barLabel1.Left:= (Scrollbox1.Width div 2) - (Label1.Width div 2);

単位は次のとおりです。

そしてdfm：

使用してみDoubleBufferedましたが、役に立ちません。

スクロール時に Memo1 と同じくらい滑らかに、Label1 をちらつきや揺れなく動かす方法について何か提案はありますか?

編集：

最終的には、フォームに 3 つ以上のスクロールボックスがあり、それぞれにヘッダー付きのメモが最大 3 つ含まれているという設計になります。また、同じスクロールボックス内のすべてのメモを同時にスクロールする必要があるため、スクロールはスクロールボックスで行う必要があります。つまり、フォームまたはパネルにラベルを付けてから、スクロールボックスの外側のフォームにラベルを付ける方法がわかりません。

編集2：

以下の回答は良い解決策を提供しますが、Labels中央に配置されている を の外にScrollbox配置し、それ自体の上に置く必要がありFormます。そして、 によって、Scrollbox's scroll barsまたは によってscroll bars直接移動しますForm。Labelsこれにより、望ましい効果が得られますが、の一部ではないという不便さが少し加わりScrollboxます。

accelerator key標準的な方法以外の を登録する方法、つまり のテキストが にaccelerator key設定されている場合を探していますtLabel。

私はたくさんグーグルで検索しましたが、そのようなものは何も見つかりませんでした。

また、他の質問では、親を設定した後、作成Label's時に Text プロパティを設定することが提案されましたが、実行時に Text プロパティと Parent プロパティが動的に設定される可能性があるため、これは機能しません。Form'sLabel'sLabel's

TEditフォームに a 、 a 、 aTLabelがありTRectangle、それぞれMyEdit、 、MyLabelおよびという名前が付けられていると仮定するとMyRect、簡単なコード例に従います。