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

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

Как динамически создать обьект на форме , например ListView ? [D7, XP]

kolj ©   (2007-11-03 04:19:00) 

Если можно , то напишыте пример , спасибо.

---

Amoeba   (2007-11-03 17:05:00) [1]

Жизнь и смерть в режиме run-time:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=342

---

timekiller   (2007-11-03 14:45:00) [2]

Если не пахает всеравно - то можно приписать к ВЫШЕСКАЗАННОМУ:

initialization
 RegisterClasses([TDateTimePicker{, можно еще какуюнить херь}]);

= ))

---

Kolan   (2007-11-03 09:54:00) [3]

Поле формы:
FListView: TListView;
…

Метод формы:
begin
 FListView := TListView.Create(Self);
 FListView.Parent := Self;
 FListView.Top := 100;
 FListView.Left := 100;
 FListView.Width := 100;
 FListView.Height := 100;
 FListView.Visible := True;
end;

---

BATTLE_MAX   (2007-11-03 09:52:00) [4]

Вот пример:

procedure TForm1.Button3Click(Sender: TObject);
var
 ListView1: TListView;
begin
 ListView1:=TListView.CreateParented(form1.Handle);
 listView1.Top:=150;

 form1.InsertControl(ListView1);

 listView1.ShowColumnHeaders:=true;
 listView1.ViewStyle :=vsReport;
 listView1.Columns.Add.Caption:='MAX';
 listView1.Columns.Add.Caption:='MAX';

 listView1.Items.BeginUpdate;
 with ListView1.Items.Add do
 begin
   Caption:= 'ggg';
   SubItems.Add(' Кб');
   SubItems.Add('123');
 end;
 listView1.Items.EndUpdate;
end;

---

Наверх