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

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

Програмное создание компонентов на форме [D7, WinXP]

Роман ©   (2009-05-03 19:44:00) 

Знаю, знаю, это очень простой вопрос. но всё же вызывает затруднения у меня. я создаю новую форму

with TForm.Create(Form1)do
 begin
 
 Name:='Chat'+inttostr(num);
 Enabled:=true;
 Visible:=true;
 Caption:=cap;
 Top:=0;
 Left:=0;
 Width:=500;
 Height:=500;
 end;

Теперь мне надо на этой форме задать компоненты... вот тут что писать я не знаю.. всё перепробовал.
 with TMemo.Create(??????) do
 begin

 parent:=?????????;
 name:='memo1';
 top:=0;
 left:=0;
 width:=100;
 height:=100;
 align:=alBotom;
 end;


---

Германн   (2009-05-14 00:53:00) [1]

> Amoeba ©   (03.05.09 19:59) [6]


> Amoeba ©   (13.05.09 23:49) [10]



> Германн ©   (14.05.09 00:40) [4]
> Программное создание компонентов (Объектов) [D6, D7]
> Guest   (13.05.09 21:52) >
> http://www.delphikingdom.com/asp/viewitem.asp?catalogid=342

http://www.delphimaster.ru/cgi-bin/forum.pl?id=1242237135&n=18

Повторение - мать учения!
:)

---

Amoeba   (2009-05-13 23:49:00) [2]

Читать до полного просветления:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=342

---

Guest   (2009-05-13 21:51:00) [3]

А как програмно нарисать событие которое например срабатывает при изминени размера формы? Тоесть описать процедуру и прибендить к форме в обработчик OnResize?

---

Роман   (2009-05-03 20:07:00) [4]

> var F: TForm;begin  F:=TForm.Create(Form1);  with F do begin
>   //Name:='Chat'+inttostr(num); //Помоему это лишнее :)
>   //Enabled:=true;   //Visible:=true;   Caption:=cap;  
> Top:=0;   Left:=0;   Width:=500;   Height:=500;  end;with
> TMemo.Create(F) do begin parent:=F; //name:='memo1'; //top:
> =0; //left:=0; //width:=100; //height:=100; align:=alBotom;
>  //Если задаешь алигн, то особо смысла нет в Left, Top,
> W... h...., иногда есть, но, думаю, не в этот раз :) end;
>

спс, помогло=)

---

{RASkov}   (2009-05-03 20:02:00) [5]

> [5] Роман   (03.05.09 19:56)

var F: TForm;
begin
 F:=TForm.Create(Form1);
 with F do begin
  //Name:='Chat'+inttostr(num); //Помоему это лишнее :)
  //Enabled:=true;
  //Visible:=true;
  Caption:=cap;
  Top:=0;
  Left:=0;
  Width:=500;
  Height:=500;
 end;
with TMemo.Create(F) do
begin

parent:=F;
//name:='memo1';
//top:=0;
//left:=0;
//width:=100;
//height:=100;
align:=alBotom; //Если задаешь алигн, то особо смысла нет в Left, Top, W... h...., иногда есть, но, думаю, не в этот раз :)
end;

---

Amoeba   (2009-05-03 19:59:00) [6]

Статья специально для автора вопроса:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=342

---

Роман   (2009-05-03 19:56:00) [7]

> вот тут-то и нужна ссылка на ранее созданную форму...

это понятно... а как именно написать?

---

{RASkov}   (2009-05-03 19:53:00) [8]

> [2] Роман   (03.05.09 19:49)

нет, не строки, а соответствующего типа... т.е. в твоем случае уместен тип TForm

---

{RASkov}   (2009-05-03 19:52:00) [9]

> вот тут что писать я не знаю..

Тут:

> with TMemo.Create(??????) do

указывается владелец, но можно nil и самому(программисту) следить за "безхозным" контролом....
Тут:

> parent:=?????????;

родитель, вот тут-то и нужна ссылка на ранее созданную форму...

---

Роман   (2009-05-03 19:49:00) [10]

в какой именно? какого типа? строки?

---

{RASkov}   (2009-05-03 19:46:00) [11]

Сохраняй ссылку на форму в какой-либо переменной....

---

Наверх