- くだすれDelphi(超初心者用)その56
793 ：デフォルトの名無しさん[sage]：2016/07/01(金) 16:47:21.32 ID:ZtgRnNdO - >>791
もしプログラムの中で文字列グリッドとラベルが1つずつしかないなら無理して一体化させる意味はないと思います。
いちいちタイプするのがいやならwith文を使うか、別な変数に格納してください。
◆with文の例1
with MyPanel1 do
begin
MyStringGrid.Cells[1, 1] := 'なんとか〜';
MyStringGrid.Celｌs[2, 1] := 'かんとか〜';
end;
◆with文の例2
with MyPanel1.MyStringGrid do
begin
Cells[1, 1] := 'なんとか〜';
Celｌs[2, 1] := 'かんとか〜';
end;
◆別な変数を使う例
var
もしそうでなければLabeledEditというラベルを舎弟にしているエディットコンポをまねて
ラベルを舎弟にした文字列グリッドクラスをよさそうですね。
グリッドとその見出しを表示させるラベルを
| - くだすれDelphi(超初心者用)その56
794 ：デフォルトの名無しさん[sage]：2016/07/01(金) 16:49:49.87 ID:ZtgRnNdO - むむ、編集中に間違って投稿してしまいました。
>>791
もしプログラムの中で文字列グリッドとラベルが1つずつしかないなら無理して一体化させる意味はないと思います。
いちいちタイプするのが嫌、またはいちいちそういう記述にするのが嫌ということでしたらwith文を使うか、別な変数に格納してください。
◆with文の例1
with MyPanel1 do
begin
MyStringGrid.Cells[1, 1] := 'なんとか〜';
MyStringGrid.Celｌs[2, 1] := 'かんとか〜';
end;
◆with文の例2
with MyPanel1.MyStringGrid do
begin
Cells[1, 1] := 'なんとか〜';
Celｌs[2, 1] := 'かんとか〜';
end;
◆別な変数を使う例
var
sg: TStringGrid;
（中略）
sg := MyPanel.StringGrid;
sg.Cells[1, 1] := 'なんとか〜';
sg.Celｌs[2, 1] := 'かんとか〜';
| - くだすれDelphi(超初心者用)その56
795 ：デフォルトの名無しさん[sage]：2016/07/01(金) 16:51:11.68 ID:ZtgRnNdO - LabeledEditみたいにラベルコンポを舎弟にするやり方もできますが
ちょっと長いのとVCLのソースコードのコピペになってしまうのでここには貼りません。
|
|