Скачать: CL | DM;

Как динамически создать обьект на форме , например ListView ?   Найти похожие ветки 

← →
kolj   (2007-11-03 04:19) [0]

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

---

← →
BATTLE_MAX ©   (2007-11-03 09:52) [1]

Вот пример:

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;

---

← →
Kolan ©   (2007-11-03 09:54) [2]

Поле формы:
FListView: TListView;
&#133

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

---

← →
timekiller   (2007-11-03 14:45) [3]

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

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

= ))

---

← →
Amoeba ©   (2007-11-03 17:05) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c