Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.



Страницы: 1 вся ветка

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

Наверх









Память: 0.82 MB
Время: 0.023 c
4-42622
Bestuzhev
2001-11-15 10:07
2002.01.14
Смена картинки на рабочем столе.


3-42343
Alexsandr
2001-12-10 04:33
2002.01.14
вопрос


3-42354
irq
2001-12-11 14:44
2002.01.14
DBGrid


1-42503
DerZky
2001-12-25 20:25
2002.01.14
Как на BitBtn переносить текст?


3-42362
Alan
2001-12-12 17:44
2002.01.14
Сортировка записей по пустому полю





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский