использование динамической компоненты

[infeter]

создал динамический компонент tlistbox. привязал к нему событие через свою процедуру. в этой процедуре могу определить как, например,

procedure TFormMain.ClickMyList(Sender: TObject);
var
my: TListBox;
memo: TMemo;
begin
my:=(Sender as TListBox);
showmessage(my.Items.Strings[my.ItemIndex]);
end;

теперь МОЙ ВОПРОС. как Вы уже, наверное, заметили, я хочу передать имя выбранного значения tlistbox в TMemo. проблема в том, что эта TMemo тоже была создана динамически... имя, например, Memo0. как мне сослаться на Memo0 через переменную из моей процедуры, чтобы изменить там текст?

я в тупике...

 

[infeter]

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

 

[zubr]

procedure TFormMain.ClickMyList(Sender: TObject);
var
my: TListBox;
memo: TMemo;
begin
my:=(Sender as TListBox);
If FormMain.FindComponent('Memo0')<>nil then
If FormMain.FindComponent('Memo0') is TMemo then
begin
memo:=FormMain.FindComponent('Memo0');
memo.Lines.Add(my.Items.Strings[my.ItemIndex]);
end;
//showmessage(my.Items.Strings[my.ItemIndex]);
end;

 

[infeter]

Для: zubr
странно. у меня вообще ничего не работает... не определяет. плюс ещё надо сделать, чтобы компилировалось, вот так:

memo:=TMemo(FormMain.FindComponent('Memo0'));

блин.... ща думаю, в чём проблема...

 

[infeter]

короче если просто создать на форме компонент статически, а не динамически, то работает:

procedure TForm1.FormCreate(Sender: TObject);
var
memo: TMemo;
begin
memo:=Form1.FindComponent('Memo1') as TMemo;
memo.Lines.Add('s');
end;

а вот если динамически, то у меня AccessViolation Error... млин...

 

[infeter]

всё. разобрался... надо просто указывать в моём случае:

memo:=application.FindComponent('Memo1') as TMemo;

т.к. я делаю так:

With TMemo.Create(application) do
 begin
  Name:='Memo'+inttostr(i);
 end;