Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Избитый! [D5, Win95/98]

Кандыль © (2001-12-24 21:14:00)
Буду краток. Нажимаю на кнопку на форме, а на ней появляется новый компонент TEdit или TLabel с заданнымы параметрами(имя размер и т.д.)!
За ранее спасибо!

Фе (2001-12-24 23:27:00) [1]
Нет, это лишнее.
Форма отвечает за удаление при Self.

Nikolay (2001-12-24 22:29:00) [2]
2 Фе
мне кажется что
parent:=form1
лучше т.к. при закрытии
формы лабел сам удаляется
а так его еще destroyнадо

Вот так!(с)

Фе (2001-12-24 22:02:00) [3]
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;

Кандыль (2001-12-24 21:42:00) [4]
btn.Parent-- ??? Что это?

Кандыль (2001-12-24 21:36:00) [5]
Извини конечно, но код не идет! И во вторых мне нужна не кнопка, а текст.

Фе (2001-12-24 21:23:00) [6]
Будем и кратки.
var
btn : TButton;
При нажатии
btn := TButton.Create(Self)ж
btn.Parent := Self;

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

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

Наверх

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