Проблемы при перемещении картинок которые созданы динамически.

[Aleksandr]

Создаю динамически Image на ScrollBox1. Картинки создаются и перемещаются, но при повторном обращении к компоненту выскакивает ощибка.Скорей всего обращаюся к компоненту которого нет. Вот мой код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    ScrollBox1: TScrollBox;
    Image2: TImage;
    procedure Image1Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure MyMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
    procedure MyMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
    procedure MyMouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);

  end;

var
  Form1: TForm1;
   x0,y0:integer;
 move:boolean;
  legend:  array[0..100] of TImage;
   t: integer;

implementation

{$R *.dfm}

procedure TForm1.MyMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if button<>mbLeft then move:=false //если нажали не левой кнопкой, то перемещать не будем!
 else begin
 move:=true;
 x0:=x; //запоминаем начальные координаты
 y0:=y; //запоминаем начальные координаты
 end;
end;
procedure TForm1.MyMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if move then begin
 legend[t].Left:=legend[t].Left+x-x0; // Изменяем позицию левого края
 legend[t].Top:=legend[t].Top+y-y0; // Изменяем позицию верхнего края
 end;
end;

procedure TForm1.MyMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
move:=false;
t:= t+1;
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
legend[t]:=TImage.Create(ScrollBox1);
legend[t].Parent:=Form1.ScrollBox1;
legend[t].Name:='legend'+IntToStr(t);
legend[t].Height:=33;
legend[t].Width:=33;
legend[t].Top:=0;
legend[t].Left:=0;
legend[t].Visible:=true;
Clipboard.Assign(Image1.Picture);
legend[t].Picture.Assign(Clipboard);
Clipboard.Clear;
legend[t].OnMouseDown:=MyMouseDown;
legend[t].OnMouseMove:=MyMouseMove;
legend[t].OnMouseUp:=MyMouseUp;
legend[t].ShowHint:=true;
legend[t].Hint:='legend'+IntToStr(t);


end;

procedure TForm1.Image2Click(Sender: TObject);
begin
legend[t]:=TImage.Create(ScrollBox1);
legend[t].Parent:=Form1.ScrollBox1;
legend[t].Name:='legend'+IntToStr(t);
legend[t].Height:=33;
legend[t].Width:=33;
legend[t].Top:=0;
legend[t].Left:=0;
legend[t].Visible:=true;
Clipboard.Assign(Image2.Picture);
legend[t].Picture.Assign(Clipboard);
Clipboard.Clear;
legend[t].OnMouseDown:=MyMouseDown;
legend[t].OnMouseMove:=MyMouseMove;
legend[t].OnMouseUp:=MyMouseUp;
end;

end.

[min@y™]

Руку гения видно сразу.

Clipboard.Assign(Image1.Picture);
legend[t].Picture.Assign(Clipboard);
Clipboard.Clear;

Расскажи, чего ты хочешь от программы? Задача-то какая?

[Аватар]

Потому что логика порушена
В MyMouseUp счетчик увеличили, но Image еще не создана. Мышкой орять кликаете по картинке - в MyMouseDown запускаете перемещение и бац в MyMouseMove ошибка обращения к несуществующему объекту

[Aleksandr]

Аватар, а как мне тогда счетчик увеличивать? Делал увеличение счетчика по двойному клику, но это ничего не дало. Вводить еще какую нибудь глобальную переменную?

[Аватар]

Есть Sender и обращаться к нему: TImage(Sender).Left:=чего-то
Счетчик увеличивать при создании объекта. И массив по хорошему динамический должен быть, либо контроль на не больше 100. Вернее не вижу пока здесь вообще необходимости в этом массиве. И картинка через буфер обмена лихо

[Aleksandr]

Аватар спасибо переделал через Sender.

[min@y™]

Викинь массив СОВСЕМ. Он тебя путает.

[Stilet]

Создаю динамически Image на ScrollBox1.

Какова цель? сделать плитку как в просмотрщиках картинок?
Для этого лучше всего подходит DrawGrid как отображатель.