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

Тема в разделе "Delphi - Компоненты", создана пользователем Skripka, 5 май 2012.

Статус темы:
Закрыта.
  1. Skripka

    Skripka Гость

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

    как в этом коде
    Код (Delphi):
     IF (ssLeft IN Shift) Then
    Begin
    ReleaseCapture();
    SendMessage(Handle, WM_SYSCOMMAND, 61458, 0);
    end;
    весь код
    Код (Delphi):
    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;
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей