- くだすれDelphi(超初心者用)その56
341 ： ◆rW3tmvmDLc [sage]：2015/03/06(金) 18:48:53.91 ID:v1c8duLQ - 亀ですがちょっと気になったので手元のTurbo Delphiで試してみました。
設計時にフォーム上のプログレスバーコンポの上にStaticTextコンポを載せようとすると
プログレスバーの子にはならず同格（フォームの子）になりますね。
子にならないということはプログレスバーが移動するとStaticTextコンポがズレるということです。
たとえば可変サイズのフォームでAlignやAnchorsでプログレスバーをフォーム下端に固定するような場合はだめということです。
（サイズ固定のフォームなら問題ない）
この場合はコードでStaticTextコンポの親コンポをプログレスバーに指定すれば
プログレスバーの子にすることが出来ます。
（※このとき、位置もコードで指定して下さい。しないと見えない位置になってしまい、焦りますw）
procedure TForm1.FormCreate(Sender: TObject);
begin
StaticText1.Parent := ProgressBar1;
StaticText1.Left := 0;
StaticText1.Top := 0;
end;
なおこの方法はラベルコンポでもできました。
＃ちなみにTStaticText自体は結構古いです。Delphi 3あたりでOLEだかCOMだかのために実装されたと記憶しています。普段はTLabelで全く問題ありませんからね。
|
|