Форум: "Основная";
Поиск по всему сайту: 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.013 c
1-42513           Aleksey_K             2001-12-25 14:19  2002.01.14  
Help !!!


4-42634           Tekman                2001-11-10 00:32  2002.01.14  
Окно без рамки


1-42440           Philya                2001-12-21 18:00  2002.01.14  
кодировка


3-42337           victor                2001-12-10 07:47  2002.01.14  
добавление записи с если первичный индекс автоинкрементный


4-42625           Лана Розанова         2001-11-15 17:24  2002.01.14  
Привет всем!!!