問題タブ [tlabel]

関数 EnumWindows および EnumChildWindows を使用して、Delphi で記述された実行中のアプリケーションのウィンドウを検査する Delphi XE2 でアプリケーションを開発しています。

これはメインのコードです (例から適応: http://www.swissdelphicenter.ch/torry/showcode.php?id=410 )

再帰が停止した後のオブジェクト TGroupBox を除いて、すべてがうまく機能します。ただし、コントロール TGroupBox には他の要素 (TLabel) が含まれています。

実際、フォームに TGroupBox を含め、次に TGroupBox に TLabel を含めて Delphi で単純なアプリケーションを作成したとしても、アプリケーションを起動して Spy++ (またはツール Autoit AU3Info) で検査しても、TGroupBox に入ることができません。内部の TLabel は検査されません。

TGroupBox 内で TLabel コントロールを見つける方法はありますか?

.Font.Styleフォーカスを変更することは可能ですTLabelか?TNewStaticText使用時にカーソルで発生するようなもの.Cursorですか?

がチェックされているときに、デフォルトの 15 から新しい18 にFiremonkey TLabel変更される理由を誰でも説明できますか。プロパティは同じままです。HeightHeightAutoSizeFont

セクションを見てUnit FMX.Controls、見つけました。デフォルトは 15 です。ImplementationConstructor

FMX.Controls ライン 2305..2392

もチェックアウトしましTStyledSettingsたが、役に立たなかったので、スタイルと関係があるのではないかと思っていました.

ではがデフォルトでチェックされているのに対し、 ではチェックされDelphi VCLていないことに気付きました。（おそらく関係ありません）。AutoSizeFireMonkey

なぜこれが考えられるのかについての考え。HeightAutoSize に変更するときに変更しなければならないのは面倒です。

実行時に TLabels を生成し、このコードで VertScrollBox に挿入しようとしています。

ラベルは問題なく表示されますが、生成されたラベルを次のコードで解放しようとすると:

次に、「引数が範囲外です」というエラーが常に発生します。

実行時に VertScrollBox に追加された TLabels を適切に削除するにはどうすればよいですか?

TLabel のテキストを次のように設定する単純なフォームがあります。

約 50% の確率で、テキストは問題なく表示されますTLabel。ただし、残りの 50% の時間では、TLabelランダムな文字化けしたテキストが表示されます。フォームのコントロールをタブで移動すると、最終的にテキストがリセットされることに気付きました。テキストが文字化けして表示されている場合でも、デバッガーで TLabels のテキストを見ると、期待どおりであることを確認しました。これを修正するためにどこを見ればよいかわかりません。

TLabelテキストが大きすぎてラベルの範囲に収まらない場合は、 a のフォント サイズを小さくしようとしています。これを実現するためにラベルに設定できるプロパティが見つからなかったため、独自のメソッドを作成してみました。私の方法は、TCanvas.TextWidthを使用してラベル内のテキストの幅を測定し、テキストの幅がラベルの幅に収まるまでフォントを縮小することで機能します。

これはうまくいく場合もありますが、フォントが十分に縮小されない場合もあります。呼び出しから得られる値Canvas->TextWidthは、テキストに合わせるために実際に必要なラベルの幅のピクセル数よりもはるかに小さいようです。

私はCanvas->TextWidth間違って使用していますか？TLabel文字列の幅を計算したり、テキストが寸法内に収まるようにフォントのサイズを変更したりするより良い方法はありますか?

編集:
この場合、TCanvasラベルが置かれている関数に渡しています。TCanvasそれとLabel->Canvas. どちらもテキスト幅に同じ数値を与え、両方とも文字列全体を表示するために必要なピクセル単位の実際の値を下回っています。