Image1の上にコントロールをクリエートしたい (ID:21360)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

タバスコ様、プロプログラマー2年目様、ご回答をありがとうございます。
アドバイスをいただいて以来「できました」と回答させていただこうかと数時間、見よう見真似で格闘してきましたがだめでした。Createで沢山のコントロールが生成できるスマートな方法を知ってしまいましたので何とか取り入れてみたいと思いました。

やりたいことは、例えばコントロールを１つづつ貼り付けたら
procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
begin
  iSTUDENT:= 1;
  Edit1.Text:= IntToStr(iSTUDENT);
end;

procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
begin
  iSTUDENT:= 1;
  Edit1.Text:= IntToStr(iSTUDENT);
end;
・
・

みたいなものをコントロール配列にして処理できないかと思ったものです。

var
  ShapeList: array[1..20] of TShape;

procesure TForm1.MouseMoveCode(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);

begin
  beep;
  Edit1.text:=IntToStr(ShapeList.Tag);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 1 to 20 do begin
    ShapeList[i] := TShape.Create(self);
    with ShapeList[i] do
    begin
        height:=15;
        width:=15;
        shape:=stcircle;
        brush.Color:=rgb(random(255),random(255),random(255));

Left := 180;
        Top := i * 20;
        Parent := Panel1;
        Tag:=i;
        onMouseMove:=LabelMouseMove;
    end;
  end;
end;

原理もわからない低レベルなものにお付き合いいただくのは大変恐縮ですが今回だけでも教えてください。

←解決時は質問者本人がここをチェックしてください。

戻る