обработка onClose в runtime

[Grandistok]

Доброго времени суток комрады.

имеется такой код

procedure TMain.MemoSelectBaseCreate(Sender: TObject);
var
LB:TListBox;
FormSelectBase:TForm;
Com:TComponent;
Act: TCloseAction;
begin
FormSelectBase:=TForm.Create(self);
FormSelectBase.Name :='FormSelectBase';
FormSelectBase.Top:=150;
FormSelectBase.Left:=150;
FormSelectBase.Width:=150;
FormSelectBase.Height:=150;
FormSelectBase.BorderStyle:=bsSizeToolWin;
FormSelectBase.BringToFront;
FormSelectBase.Show;
end;

Форма прекрасно создается и закрывается, но при повторном вызове формы появляется ошибка

A component named FormSelectBase already exists

как я понимаю дело в том что при закрытии форма не уничтожается а просто скрывается. Решение: запихать в обработчик OnClose код Action := caFree; Вот только никак не смог понять как это сделать ведь моя форма созданна в runtime. Поиск по форуму и гуглу ничего дельного не дал.

Собсно вопрос: Как получить доступ к свойствам динамически созданных форм?

Заранее благодарен.

[psycho-coder]

По идее также как и к обычным

FormSelectBase.Destroy;

[Unconnected]

Как получить доступ к свойствам динамически созданных форм?

Может, к событиям?

Сначала создаёшь процедуру-обработчик события, например так:

Procedure MyEvent(Sender: TObject; var Action: TCloseAction);
begin
  form.free;
end;

И после создания формы пишешь:

form.onclose:=MyEvent;

[sheka]

Форму можно просто показывать в следующий раз, а не создавать заново.
form.show;

[Grandistok]

Cпасибки все получилось

[Grandistok]

Вот сталкнулся внезатно с загвоздкой:
Если создаю обработчик подобным образом

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

Procedure MyEvent(Sender: TObject; var Action: TCloseAction);

то не могу передать в него параметры

Например

procedure TMain.MemoSelectBaseCreate(Sender: TObject; var Znachenie:string);

потом пытяюсь его вызывать

btn.OnClick:=Main.MemoSelectBaseCreate('Значение');

ролучаю ошибку
[DCC Error] Nain.pas(589): E2010 Incompatible types: 'TObject' and 'string'
Я так понимаю что то с Sender? ведь я его не передал а оно должно ити до параметра Znachenie? Как корректно передать в процедуру значения?

[psycho-coder]

btn.OnClick:=Main.MemoSelectBaseCreate('Значение');

Ты тут должен указать имя процедуры обработчика.

btn.OnClick:=Main.MemoSelectBaseCreate;

[Grandistok]

Сообщение от psycho-coder

Ты тут должен указать имя процедуры обработчика.

btn.OnClick:=Main.MemoSelectBaseCreate;

Спасибо я это понимаю но я хочу передать какие то значения в процедуру обработчик типа:

MemoSelectBaseCreate(Sender: TObject; var Znachenie:string);
begin
.
.
.
Znachenie:=Znachenie+'10';
.
.
.
end;

А потом вызывать этот обработчик события передвав в него что то MemoSelectBaseCreate('Номер ');

Или это невозможно?

[mihali4]

btn.OnClick:=Main.MemoSelectBaseCreate(btn, 'Значение');

[psycho-coder]

Ну, значение передавай при вызове процедуры, а не при инициализации обработчика

begin
...
  Main.MemoSelectBaseCreate(btn, 'Значение');
...
end;

Или я что то не понял?