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

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

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 14.12.2007, 13:59   #1
dimfil
Пользователь
 
Регистрация: 08.11.2007
Сообщений: 25
Вопрос В TLabel не работает Anchors

В рунтайме необходимо создать TLabel. Anchors присваиваю t.Anchors:=[akRight, akBottom];
Но работает будто t.Anchors:=[akLeft, akTop];
Для проверки добавил кнопку, но с ней такого не происходит, работает по заданным параметрам.

Код:
  public
    { Public declarations }
    t: TLabel;
    b: TButton;
  end;
...
procedure TForm2.FormCreate(Sender: TObject);
begin
  t:=TLabel.Create(self);
  t.Align:=alCustom;
  t.Anchors:=[akRight, akBottom];
  t.Left:=402;
  t.Top:=266;
  t.Width:=58;
  t.Height:=16;
  t.Caption:='12345';
  t.Font.Size:=10;
  t.Font.Style:=[fsBold];
  t.ParentFont:=False;
  t.Font.Charset:=DEFAULT_CHARSET;
  t.Font.Color:=0;
  t.Font.Height:=-13;
  t.Font.Name:='Tahoma';
  t.Font.Style:=[fsBold];
  self.InsertControl(t);
  b:=TButton.Create(self);
  b.Align:=alCustom;
  b.Anchors:=[akRight, akBottom];
  b.Left:=102;
  b.Top:=166;
  b.Width:=100;
  b.Height:=46;
  b.Caption:='12345';
  b.Font.Size:=10;
  b.Font.Style:=[fsBold];
  b.ParentFont:=False;
  b.Font.Charset:=DEFAULT_CHARSET;
  b.Font.Color:=0;
  b.Font.Height:=-13;
  b.Font.Name:='Tahoma';
  b.Font.Style:=[fsBold];
  InsertControl(b);
end;
dimfil вне форума Ответить с цитированием
Старый 14.12.2007, 14:24   #2
_Dmitry
Участник клуба
 
Аватар для _Dmitry
 
Регистрация: 02.09.2007
Сообщений: 1,193
По умолчанию

Замени
self.InsertControl(t);
на
t.Parent:=self;
_Dmitry вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вопрос про TLabel Alex.rus Помощь студентам 3 14.07.2008 22:04
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