Динамическое Создание И Обработка Событий

  • Автор темы Skripka
  • Дата начала
Статус
Закрыто для дальнейших ответов.
S

Skripka

#1
создаю динамически несколько форм, помещаю на них по кнопке и картинке, никак не могу разобратьсо как обрабатывать события. по кнопке нужно чтоб закрывалось, а при нажатие на изображения форма, на которой закрывалась, двигалась

как в этом коде
Код:
 IF (ssLeft IN Shift) Then
Begin
ReleaseCapture();
SendMessage(Handle, WM_SYSCOMMAND, 61458, 0);
end;
весь код
Код:
var
Form3: TForm3;
var
a: array [1..20] of TSpeedButton; // массив элементов Edit
b: array [1..10] of TImage; //массив меток
c: array [1..10] of TForm; //массив меток
x: array [1..10] of TLabel; //массив меток

i, j,z: integer;
implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);


begin



for j:=1 to 5 do
begin
c[j]:=TForm.create(Form3);

c[j].left:=200;
c[j].Caption:='элемент # '+inttostr(j);
c[j].top:=j*30;
c[j].OnMouseDown:= FormMouseDown ;
c[j].Show;


b[j]:=TImage.create(c[j]);
b[j].parent:=c[j];
b[j].Align:= alClient;
b[j].OnMouseDown:= FormMouseDown ;
a[j]:=TSpeedButton.create(c[j]);
a[j].OnMouseDown:= Image1MouseDown;
a[j].parent:=c[j];
a[j].Flat:=true;
// a[j].OnClick:= Buttonnn;
a[j].left:=c[j].Width-60;
a[j].Width:=30;
a[j].Caption:='X';
a[j].top:=5;


end;

end;
 
Статус
Закрыто для дальнейших ответов.