Програмное создание компонентов на форме

← →
Роман (2009-05-03 19:44) [0]

Знаю, знаю, это очень простой вопрос. но всё же вызывает затруднения у меня. я создаю новую форму
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;

← →
{RASkov} © (2009-05-03 19:46) [1]

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

← →
Роман (2009-05-03 19:49) [2]

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

← →
{RASkov} © (2009-05-03 19:52) [3]

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

Тут:

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

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

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

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

← →
{RASkov} © (2009-05-03 19:53) [4]

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

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

← →
Роман (2009-05-03 19:56) [5]

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

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

← →
Amoeba © (2009-05-03 19:59) [6]

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

← →
{RASkov} © (2009-05-03 20:02) [7]

> [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;

← →
Роман (2009-05-03 20:07) [8]

> 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;
>

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

← →
Guest (2009-05-13 21:51) [9]

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

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

> 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://delphimaster.net/view/2-1242237135/

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

Програмное создание компонентов на форме Найти похожие ветки