Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.07.2008, 21:21   #1
Alex.rus
Пользователь
 
Аватар для Alex.rus
 
Регистрация: 02.12.2007
Сообщений: 26
По умолчанию Вопрос про TLabel

Вопрос вот в чем создаю динамически форму а на ней кнопку
все работает как нaдо
var
NewForm:TForm;
NewBut:TButton;
begin
NewForm:=TForm.Create(Owner);
NewForm.Width:=400;
NewForm.Height:=200;
NewForm.Show;
NewBut:=TButton.Create(Owner);
NewBut.Caption:='Кнопка';
NewBut.Width:=150;
NewBut.Top:=10;
NewBut.Left:=10;
NewBut.ParentWindow:=NewForm.Handle ;
end;

а когда рядом создаю TLabel он толи не создается толи не отображается
непонять. Я делаю с TLabel так же как с кнопкой но у TLabel нету свойсва ParentWindow есть только NewLabel.Parent.ParentWindow но так не работает
напишите как правильно.
Заранее спасибо.
Alex.rus вне форума Ответить с цитированием
Старый 14.07.2008, 21:59   #2
Nemesisking
Форумчанин
 
Аватар для Nemesisking
 
Регистрация: 04.02.2007
Сообщений: 213
По умолчанию

я б на твоем месте сделал бы уже готовую форму и просто бы вызывал ее, с лабелом сто пудов получится...
Per Aspera Ad Astra
www.salviaclub.com.ua
Nemesisking вне форума Ответить с цитированием
Старый 14.07.2008, 21:59   #3
Greblin
Меркантильный кю
Участник клуба
 
Аватар для Greblin
 
Регистрация: 02.02.2008
Сообщений: 1,001
По умолчанию

Код:
var
NewForm:TForm;
NewBut:TButton;
NewLab:TLabel;
begin
NewForm:=TForm.Create(Owner);
NewForm.Width:=400;
NewForm.Height:=200;
NewForm.Show;

NewBut:=TButton.Create(Owner);
NewBut.Parent := NewForm;
NewBut.Caption:='Кнопка';
NewBut.Width:=150;
NewBut.Top:=10;
NewBut.Left:=10;

NewLab := TLabel.Create(Owner);
NewLab.Parent := NewForm;
NewLab.Caption := 'Надпись';
NewLab.Top := 50;
NewLab.Left := 10;
NewLab.Show;
end;
Росли вроде умными, выросли дурнями... (c)А.Васильев
Greblin вне форума Ответить с цитированием
Старый 14.07.2008, 22:04   #4
Alex.rus
Пользователь
 
Аватар для Alex.rus
 
Регистрация: 02.12.2007
Сообщений: 26
По умолчанию

Спасибо Greblin помогло.
Alex.rus вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Tlabel Artificial Общие вопросы Delphi 4 16.06.2008 01:31
TLabel satana Компоненты Delphi 3 10.02.2008 22:01
TLabel или TRichEdit vovan_evv Компоненты Delphi 4 18.10.2007 09:57
Tlabel как гиперссылка s-force Общие вопросы Delphi 6 27.08.2007 20:43
работа с Tlabel Аббат Общие вопросы Delphi 18 18.04.2007 13:56