| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблема с Listbox в runtime [D7, WinXP]

Страницы:   < 1 2 >

_Dragon ©   (2004-07-15 15:22:00) 

Суть проблемы: создаю форму в runtime, "помещаю" на нее Listbox и кнопу, при нажатии на которую в листбокс должна добавиться строчка. Нажатие - Exeption! Ладно. Попробовал так: TListbox(form.findcomponent('List')). ... - история с Еxeption повторяется. Пробовал через указатель на Items - не проходит. Помогите пожалуйста...

---

_Dragon   (2004-07-18 19:23:00) [21]

Счас ...



procedure ShowForm;
var Form:TForm;
   List:TListbox;

procedure _OnClick;
begin
List.Items.Add('строка');
end;

begin
Form:=TForm.Create(Application);

 with Form do
  begin
   Left:=100; top:=100;
   Width:=200; Height:=300;
   Color:=$00FFAD;
   BorderStyle:=bsSingle;
   Caption:='Форма';

   List:=TListBox.Create(Form);
    with List do
     begin
      Parent:=Form;
      Align:=alTop;
      Height:=200;
      items.Add('Создание');      // Здесь все работает
     end;

    with TButton.Create(Form) do
     begin
      Parent:=Form;
      width:=100; Height:=25;
      left:=50; top:=220;
      Caption:='Батон';
      Name:='Button';
      @OnClick:=@_Onclick;    // Это место меня волнует больше всего
     end;

    try
     ShowModal;
    Finally
     Free;
    end;
  end;
end;

end.



---

clickmaker   (2004-07-15 15:26:00) [22]

полностью код приведи

---

Страницы:   < 1 2 >

Наверх