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

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

Создание элемента "из воздуха" [D5, WinME]

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

NightStranger ©   (2005-02-04 14:55:00) 

Доброго времени суток. Подскажите, плиз, как сделать так, чтобы, предположим, при нажатии на кнопку на форме СОЗДАВАЛАСЬ, например, Label'ка. Не могу разобрасться в функциях Create и т.п.
Покажите, плиз, пример кода. Спасибо

---

msguns   (2005-02-04 15:04:00) [21]

with TLabel.Create(Self) do
 begin
  Left :=
  Top :=
  Caption :=
  ...
  Parent := Self;
 end;

---

NightStranger   (2005-02-04 15:03:00) [22]

> Parent := Self;

а что это за параметр?

---

КаПиБаРа   (2005-02-04 15:02:00) [23]

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=342

---

MacroDenS   (2005-02-04 15:01:00) [24]

если конкретно Label, то так:

var
  lbl:TLabel;
....
Procedure form1.Button1Click(sender: TObject);
begin
  lbl:=Tlabel.Create(self);
  lbl.parent:=Form1;
  lbl.top...
  lbl.left...
и так далее
end;
С другими компонентами в принципе так же

---

msguns   (2005-02-04 15:00:00) [25]

with TLabel.Create(Self) do
 begin
  Left :=
  Top :=
  Caption :=
  ...
  Parent := Self;
 end;

---

Чапаев   (2005-02-04 15:00:00) [26]

with TLabel.Create(Self) do begin
 Caption:='Бред';
 Top:=100;
 Left:=120;
 Name:='MyLabel';
 Parent:=Self;
end;

---

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

Наверх