Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Вниз

Избитый! 


Кандыль   (2001-12-24 21:14) [0]

Буду краток. Нажимаю на кнопку на форме, а на ней появляется новый компонент TEdit или TLabel с заданнымы параметрами(имя размер и т.д.)!
За ранее спасибо!



Фе   (2001-12-24 21:23) [1]

Будем и кратки.
var
btn : TButton;
При нажатии
btn := TButton.Create(Self)ж
btn.Parent := Self;

Или вместо Self имя компонента-родителя.

Об остальном - догадаешься сам при изучении методов, свойств и событий создаваемого компонента.



Кандыль   (2001-12-24 21:36) [2]

Извини конечно, но код не идет! И во вторых мне нужна не кнопка, а текст.



Кандыль   (2001-12-24 21:42) [3]

btn.Parent -- ??? Что это?



Фе   (2001-12-24 22:02) [4]

btn.Parent - это родитель твоего компонента, т.е. на каком компоненте
создается твой компонент.
Для случая Self родителем явл-ся форма и она отвечает за уничтожение
твоего компонента.
Определись, что ты понимаешь под текстом.
Edit1.Text - Это текст.
Label1.Caption - это текст.


Как ты ждал вот именно такой полной подсказки.

procedure TForm1.Button1Click(Sender: TObject);
var
Button: TButton;
begin
Button := TButton.Create(Self);
Button.Parent := Self;
Button.Caption := "Self";
Button.Left := 10;
Button.Top := 10;
Button.OnClick := NewButtonClick;
end;

procedure TForm1.NewButtonClick(Sender: TObject);
begin
ShowMessage("Ой блин - как просто!");
end;



Nikolay   (2001-12-24 22:29) [5]

2 Фе
мне кажется что
parent:=form1
лучше т.к. при закрытии
формы лабел сам удаляется
а так его еще destroy надо

Вот так!(с)



Фе   (2001-12-24 23:27) [6]

Нет, это лишнее.
Форма отвечает за удаление при Self.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.018 c
3-42344           Dreamer               2001-12-10 22:13  2002.01.14  
CreateTable;


1-42446           Hawk2                 2001-12-24 16:52  2002.01.14  
Объясните суть, зачем все это?


1-42465           Smok_er               2001-12-20 04:37  2002.01.14  
Вращение TImage


1-42471           dimonf                2001-12-24 17:15  2002.01.14  
Как быстро выводить (прорисовывать) графическую информацию на Canvas?


1-42461           User                  2001-12-25 08:49  2002.01.14  
Как же мне отрисовать самому строки в TListView?