【Delphi(デルファイ)】コントロール配列のつくりかた

ぽてCCPさんの書き込み (2006-06-16 13:59) より:
デルファイだと、配列の変数名が変わるんですか？

配列って、変数名が同じで、添え字によって指定されるものと思ってたもので。

わしこさんの書き込み (2006-06-16 14:06) より:

確かに説明が不足していて意図する内容の書き込みではありませんが、
『ボタン１、２を押したときにボタン３のイベントが発生する』と書いているようには
どうしても思えないのですが。。。

わしこさんの書き込み (2006-06-16 11:56) より:
Delphiについて他に質問できそうな所が無かったので、
VBに似ていると言われているようなのでここで質問させてください＞＜

Delphiをインストールしてかれこれ１時間ほど
コントロール配列の作成をしていますができません。

btn1〜3を作成し、Label1に「1」or「2」or「3」を出力、という極単純なことがしたいのです。

http://www.w-frontier.com/delphi/4_calc.htmlを参考に作成しています。

方法↓
btn1〜3を作成する。
[Shift]を押下したままbtn1〜3をクリックして選択する。
ダブルクリックする。

以上の方法でできると書いてありますが、
結果はbtn3をクリックすると「３」と出力されるだけで、
btn1,btn2は音沙汰無しです。

場違いだとは思いますが、
もしDelphiを使用されたことがあるという方がいらっしゃいましたら、ご教授くださいませ。

実行コードは以下===========================================
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
btn1: TButton;
btn2: TButton;
btn3: TButton;
Label1: TLabel;
procedure btn3Click(Sender: TObject);
private
{ Private 宣言 }
public
{ Public 宣言 }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn3Click(Sender: TObject);
var s : Char ;
begin
if Sender is TButton then
begin
s := TButton(Sender).Name[4] ;
Label1.Caption := s;
end;
end ;

end.


[ メッセージ編集済み 編集者: わしこ 編集日時 2006-06-16 13:03 ]

七味唐辛子さんの書き込み (2006-06-16 14:17) より:

で　やって見ましたか！記述が正しいのかどうかは不明ですが、うまくいくと思うのですが、

コードの記述法よりも前に、
コントロールオブジェクト的にどうやったらコントロール配列になるのでしょう(;＿？

本当のコントロール配列をやろうとしてるわけではありません。
…
ですから今回の場合は三つのボタンのOnClickに同じprocedureを代入すればOKです。
プロシージャ名はなんでもいいです。たとえばbtn1だからbtn1Clickでなければならないことはありません。
btn1.OnClick := a; // procedure なんとかフォーム.a(Sender: TObject); があればOKです。
DelphiなのでVB(６以前)と同じ考えかたしてもしょうがないです。
どうしてもコントロール配列がしたいなら「コントロール」の「配列」を作ってください。

今回は根本的にdelphiを理解してないのが原因です。
習う前に慣れろっのはコンピュータ業界においては
おかしい考え方です。動かす前に基礎をまず学ぶ！！！！
スポーツ界とかにおいてはありだと思いますが。