Difference between revisions of "TLabel/ja"
From Free Pascal wiki
Jump to navigationJump to search (Created page with "{{TLabel}} {{ Japanese Menu}} '''TLabel''' image:tlabel.png is a component that creates a text-item with one or more lines on another component. A TLabel is a descendan...") |
|||
| (14 intermediate revisions by the same user not shown) | |||
| Line 3: | Line 3: | ||
{{ Japanese Menu}} | {{ Japanese Menu}} | ||
| − | '''TLabel''' [[image:tlabel.png]] | + | '''TLabel''' [[image:tlabel.png]]は1、あるいは複数行のテキストアイテムを他のコンポーネントに作るコンポーネントである。TLabelは[[TGraphicControl]]より派生し、[[Component Palette/ja|コンポーネントパレット]]の[[Standard tab/ja|Standardタブ]]より利用できる。 |
| − | == | + | ==使い方== |
| − | + | TLabelは[[TForm|forms]]で用いることのできるもっとも基本的なコンポーネントの1つである。ほとんどのラベルは、例えば、[[TEdit|Edit fields]]、[[TMemo|Memos]]、[[TStringGrid|StringGrids]]などといった他のコンポーネントのマーキングである。TLabelは様々な利用可能なイベントをもたらすが、ほとんどの場合必要とされない。 | |
| − | + | StandardコンポーネントのTLabel(テキストシンボルAbc)をクリックすることにより、フォームにラベルを加えることができ、フォーム上にクリックして配置することができる。 | |
| − | + | フォームに新しく挿入された、デフォルトラベル''Label''を変更するために、以下のように進めることができる: | |
| − | * | + | * フォーム上で1度クリックし、TLabelを選択する。 |
| − | * | + | * オブジェクトインスペクタタブのプロパティに移動する。 |
| − | * | + | * プロパティ、'''Caption'''を選択し、隣の編集フィールドで変更する。 |
| − | * | + | * 同様にしてプロパティ、'''Name'''を選択し、よりよい名前に変更する。 |
| − | == | + | ==実行時にキャプションを変更する== |
| − | + | もちろん、実行中にキャプション(表示されるテキスト)を変えることができる。 | |
| − | + | 以下の例はこれを示している: | |
| − | * | + | * 新しい[[Form_Tutorial/ja#初めてのGUIアプリケーション|GUIアプリケーション]]フォーム、''Form1''を作る。このフォームにStandardコンポーネントタブでふさわしいコンポーネント、[[TButton/ja|TButton]]、 ''Button1''と[[TLabel/ja|TLabel]]、''Label1''を選択し、''Form1''上でクリックする(ラベルはボタンの上にあるはずである)。 |
| − | * | + | * ''Button1''上で単にダブルクリックすることで、''Button1''に対する[[Event_order|イベントハンドラ]]を作る。 |
| − | * | + | * ''Button1''のOnClickイベントハンドラのコードに以下の行を挿入する: |
<syntaxhighlight lang=pascal> | <syntaxhighlight lang=pascal> | ||
procedure TForm1.Button1Click(Sender: TObject); | procedure TForm1.Button1Click(Sender: TObject); | ||
| − | const Cnt: Integer = 0; // | + | const Cnt: Integer = 0; //何回ボタンがクリックされたか決めるカウンタ |
begin | begin | ||
| − | inc(Cnt); // | + | inc(Cnt); //カウンタを1インクリメント |
| − | Label1.Caption:='Button was clicked ' + // | + | Label1.Caption:='Button was clicked ' + //Label1のキャプションにテキストをを書き込む |
IntToStr(Cnt) + ' times'; | IntToStr(Cnt) + ' times'; | ||
end; | end; | ||
</syntaxhighlight> | </syntaxhighlight> | ||
| − | * | + | * プログラムを起動しボタンをクリックすることでラベルが変わることを試そう。 |
| − | == | + | == 右揃えしたラベルのDelphiとの非互換性== |
| − | * | + | * Delphiでは Alignment=taRightJustify で自動的にサイズ変更されるが、Anchors=[akLeft,...]は左向きに伸びる。LCLでは、Lazarus 2.3.0からそれらは右向きに伸びる。 |
| − | * | + | * 理由: LCLでは大きな伸長なしに不可視のラベルに対してもまた、その振る舞いを実装することが不可能であった。LCLは同様の効果をもたらすコーントロールに基づく異なる、より一般的な特徴を持たせてある(以下の救済策を見ること)。そのため、この機能を移殖して、LCLコードをいたずらに複雑かつ、バグの元とにする、必要も要求もないとした。 |
| − | * | + | * 救済策: 第2のコントロールにLCLアンカリングを使う。ラベルの右側を他のコントロールにアンカーさせる。そうすると自動サイズ化されたラベルが左に伸長するが、手本となるコントロールなしに、親が、単純なakRightアンカーを終えたようにリサイズされるとき、右には移動しない。 |
| − | == | + | ==コメント== |
| − | + | 複数行のテキストを表すため、行の折り返しの目印として、ふさわしい場所に''[[End of Line|LineEnding]]''を配置することができる。 | |
| − | + | ||
| + | 例: | ||
<syntaxhighlight lang=pascal> | <syntaxhighlight lang=pascal> | ||
Label1.Caption := 'This' + LineEnding + 'is' + LineEnding + 'a' + LineEnding + 'multiline' + LineEnding + 'text'; | Label1.Caption := 'This' + LineEnding + 'is' + LineEnding + 'a' + LineEnding + 'multiline' + LineEnding + 'text'; | ||
</syntaxhighlight> | </syntaxhighlight> | ||
| − | == | + | ==以下も参照のこと== |
* [[doc:/lcl/stdctrls/tlabel.html|TLabel doc]] | * [[doc:/lcl/stdctrls/tlabel.html|TLabel doc]] | ||
* [[TStaticText]] | * [[TStaticText]] | ||
| − | {{LCL Components}} | + | {{LCL Components/ja}} |
Latest revision as of 06:48, 20 March 2024
│
Deutsch (de) │
English (en) │
suomi (fi) │
français (fr) │
日本語 (ja) │
русский (ru) │
TLabel 
は1、あるいは複数行のテキストアイテムを他のコンポーネントに作るコンポーネントである。TLabelはTGraphicControlより派生し、コンポーネントパレットのStandardタブより利用できる。
使い方
TLabelはformsで用いることのできるもっとも基本的なコンポーネントの1つである。ほとんどのラベルは、例えば、Edit fields、Memos、StringGridsなどといった他のコンポーネントのマーキングである。TLabelは様々な利用可能なイベントをもたらすが、ほとんどの場合必要とされない。
StandardコンポーネントのTLabel(テキストシンボルAbc)をクリックすることにより、フォームにラベルを加えることができ、フォーム上にクリックして配置することができる。
フォームに新しく挿入された、デフォルトラベルLabelを変更するために、以下のように進めることができる:
- フォーム上で1度クリックし、TLabelを選択する。
- オブジェクトインスペクタタブのプロパティに移動する。
- プロパティ、Captionを選択し、隣の編集フィールドで変更する。
- 同様にしてプロパティ、Nameを選択し、よりよい名前に変更する。
実行時にキャプションを変更する
もちろん、実行中にキャプション(表示されるテキスト)を変えることができる。
以下の例はこれを示している:
- 新しいGUIアプリケーションフォーム、Form1を作る。このフォームにStandardコンポーネントタブでふさわしいコンポーネント、TButton、 Button1とTLabel、Label1を選択し、Form1上でクリックする(ラベルはボタンの上にあるはずである)。
- Button1上で単にダブルクリックすることで、Button1に対するイベントハンドラを作る。
- Button1のOnClickイベントハンドラのコードに以下の行を挿入する:
procedure TForm1.Button1Click(Sender: TObject);
const Cnt: Integer = 0; //何回ボタンがクリックされたか決めるカウンタ
begin
inc(Cnt); //カウンタを1インクリメント
Label1.Caption:='Button was clicked ' + //Label1のキャプションにテキストをを書き込む
IntToStr(Cnt) + ' times';
end;
- プログラムを起動しボタンをクリックすることでラベルが変わることを試そう。
右揃えしたラベルのDelphiとの非互換性
- Delphiでは Alignment=taRightJustify で自動的にサイズ変更されるが、Anchors=[akLeft,...]は左向きに伸びる。LCLでは、Lazarus 2.3.0からそれらは右向きに伸びる。
- 理由: LCLでは大きな伸長なしに不可視のラベルに対してもまた、その振る舞いを実装することが不可能であった。LCLは同様の効果をもたらすコーントロールに基づく異なる、より一般的な特徴を持たせてある(以下の救済策を見ること)。そのため、この機能を移殖して、LCLコードをいたずらに複雑かつ、バグの元とにする、必要も要求もないとした。
- 救済策: 第2のコントロールにLCLアンカリングを使う。ラベルの右側を他のコントロールにアンカーさせる。そうすると自動サイズ化されたラベルが左に伸長するが、手本となるコントロールなしに、親が、単純なakRightアンカーを終えたようにリサイズされるとき、右には移動しない。
コメント
複数行のテキストを表すため、行の折り返しの目印として、ふさわしい場所にLineEndingを配置することができる。
例:
Label1.Caption := 'This' + LineEnding + 'is' + LineEnding + 'a' + LineEnding + 'multiline' + LineEnding + 'text';
以下も参照のこと
