問題タブ [tpanel]

こんにちは、私は次のものを持っています：selectedPanelはクリックされたパネルオブジェクトを取得する必要があり、フォームがクリックされた場合、selectedPanelは「null」、nada、emptyなどになる必要があります:)

問題は、その変数を「null」に設定する方法です。selectedBlock:= Unassigned を実行するとエラーが発生します。

ありがとう

編集:これはまだエラーをスローします:アクセス違反

TScrollBox を使用して、カスタム リストに多くのコントロール (Tlabels、Timages、Tshapes) を含めるようにしています。

問題は、各項目のコンテナーとして TPanels を使用すると、約 100 項目を追加した後にリストが遅くなりがちらつくことです。

パフォーマンスを向上させるために TGraphicControl に基づく TPanel に代わるものを探しています

これが Firemonkey のサンプル コードです。

MyStringArray は常に同じ数の要素を持つ動的配列ではないため、ラベルの数に応じて TLayout (Layout1) の内容で TPanel (Panel1) のサイズを変更します。

これは、Layout1 でラベルの数が増えると問題なく機能しますが、ラベルの数が少なく、Layout1.ChildrenRect.Height効果がなく、縮小もしない場合、Layout1 の高さは常に高い値を維持します。

それを行う方法の解決策または他の代替手段はありますか?, よろしくお願いします.

http://docwiki.embarcadero.com/CodeExamples/XE7/en/FMXEmbeddedForm_(Delphi)の例に従おうとしましたが、明らかに読み取り専用である TCustomForm の子で最初の問題に遭遇したので、コメントしましたそれをArgForm.Parent:= ArgParent;代わりに入れますが、まだ空の画面が表示され、2番目のフォームにあるボタンが表示されません。

私のメインフォームのコードは次のとおりです。

メインフォームのパネルに配置するフォームのコードは次のとおりです。

これは私の質問の続きです:パネルに Delphi フォームを表示するにはどうすればよいですか?

フォームのグローバル変数を使用してパネルに埋め込んで表示したいのですが、ボタンなしで埋め込むフォームのみを作成します。

実行可能ファイルのコードでは、次のように、最初に埋め込むフォームと、2 番目に埋め込むフォームを作成しています。

メイン フォームのコードは次のとおりです。

埋め込むフォームのコードは次のとおりです。

TFrameその上にいくつかのコンポーネントを持つ があり、その中に と があり、TPanelPaintBoxTPaintBoxのサイズは Panel と同じです。

そのユーザーには、PaintBox だけでなく Panel も表示されることを望みます。

問題は、パネルを右クリックして を選択Control->Send to Backしても機能しないことです。

仮定、または解決策の提案はありますか?

*Borland C++Builder 6 を使用しています。

After pushing a button I wanted to change the color of a panel to green:

doesn´t work.

doesn´t work.

with this addiction:

it still doesn´t work.

tried it this way:

TForm transparency is false same result after pushing the button.

How can I do it right?

私のプログラム (チェス) では、特定の背景色 (黒または白) で多くの Tpanels を生成する必要があります。T パネルが作成されますが、色を設定しても無色のままです。

TPanel コンポーネントからカスタム ボタンを作成しようとしています。このために、onmousedown および onmouseup イベント (描画を行うため) のオーバーライドを提供し、onclick イベントを使用してクリックを処理しました。

残念ながら、パネルをすばやくクリックすると、1 回おきのクリックが失われますが、その理由はわかりません。

最も簡単な例でさえ、この点では失敗します。新しい VCL アプリケーションを作成し、リストボックスと 1 つのパネルを追加し、次のようにイベントを実装しました。

結果は次のとおりです。

など... 2 回目のクリックは無視されますが、その理由はわかりません。

誰でもこれを説明できますか？

Windows 10 上の Delphi 10.4.2 Win32 VCL アプリケーションでは、 with を使用TPanelしAutoSize = Trueます。

ドキュメントには次のように記載されています。

AutoSize が True の場合、コントロールの内容が変更されると、コントロールのサイズが自動的に変更されます。

ただし、この特定の状況で実行時に内容のサイズが変更される場合は、この限りではありません。

これらのコントロールを VCL アプリケーション フォームに配置します。

次に、ボタンのOnClickハンドラーに次のコードを配置します。

これにより、パネルの幅が毎回 10 ピクセルずつ減少します。

ただし、パネルの高さは自動的にサイズ変更されません!

チェックボックスの変更された高さを反映するように、パネルのサイズを手動で変更するにはどうすればよいですか?