Главная страница
    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.097 c
4-42601
Miwa
2001-11-13 14:33
2002.01.14
ShellExecute


1-42400
GARIK_PR
2001-12-26 15:07
2002.01.14
Интеграция с математическими пакетами программ.


3-42336
ray_wagner
2001-12-07 16:31
2002.01.14
Русский шрифт в Database Desktop?


1-42515
Simonaln
2001-12-26 11:32
2002.01.14
Расстояние между строками в Memo


1-42509
Sergo
2001-12-26 10:15
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский