[Gareth]

Здравствуйте.

Я хотел бы, что бы вы мне объяснили, каким образом можно сделать событие на компоненты, созданные в run-time?

И еще кое-что не понимаю...
как на одну кнопку, создавать компоненты, (допустим панель) и каждый раз с расстоянием от предыдущего. (это ве на одну кнопку, одно нажатие - 1 панель со своими left, top, width, heiht)

[lmikle]

Заранее описываешь процедуру соотв. типа. Далее, созданному компоненту присваиваешь эту процедуру. Ну а смещение делается через сохранение координат последнего созданного компонента. Пример:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

type   TForm1 = class(TForm)   ...     procedure RunTimeButtonClick(Sender : TObject);   end;   procedure TForm1.RunTimeButtonClick(Sender : TObject); begin   ShowMessage('Run-time event handler.'); end;   procedure TForm1.Button1Click(Sender : TObject); var   I : Integer;   X, Y : Integer;   RTButton : TButton; begin   X := 0;   Y := 0;   For I := 0 To 9 Do     Begin       RTButton := TButton.Create(Self);       RTButton.Caption := 'Button ' + IntToStr(I);       RTButton.OnClick := RunTimeButtonClick;       RTButton.Top := Y;       RTButton.Left := X;       X := X + RTButton.Width;       Y := Y + RTButton.Height;     End; end;

[icWasya]

А для того, что бы потом различать, какой именно контрол вызвал событие,
можно делать так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

type   TForm1 = class(TForm)    ...      RTag:Integer;    ...      procedure RunTimeButtonClick(Sender : TObject);    end;   ... procedure TForm1.RunTimeButtonClick(Sender : TObject); var   IndexOfButton:Integer;  begin   IndexOfButton:=TConmponent(Sender).Tag;//<<==--   ShowMessage('Run-time event handler :'+IntToStr(IndexOfButton));  end; ...   RTButton := TButton.Create(Self);   RTButton.Tag := RTag; Inc(RTag);//<<==--

[Gareth]

Сообщение от lmikle

Заранее описываешь процедуру соотв. типа. Далее, созданному компоненту присваиваешь эту процедуру. Ну а смещение делается через сохранение координат последнего созданного компонента. Пример:

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

И как заставить появляться новый компонент чуть ниже предыдущего?

Заранее спасибо!

[Alegun]

Сообщение от Gareth

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

Вот пример

[Gareth]

Сообщение от Alegun

Вот пример

А как сохранять динамически созданные компоненты?
С обычными можно обойтись ini.
А с этими?

[poli-smen]

Сообщение от Gareth

А как сохранять динамически созданные компоненты?

Можно через потоки:

Код:

1	procedure TStream.WriteComponent(Instance: TComponent);

[Alegun]

Сообщение от Gareth

А как сохранять динамически созданные компоненты?...

Всё правильно, дал ложку, дай и хлеба вот пример