Как динамически создать обьект на форме , например 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{, можно еще какуюнить херь}]);

= ))

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

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