VPF::Динамический TLabel - Форум программистов

MacTep

Дата 4.5.2011, 22:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: 4
Всего: 4

Создаю динамически TLabel на форме. Как узнать, какую ширину в пикселях он займет на форме?

--------------------

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

Gwire

Дата 5.5.2011, 10:39 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 7.8.2007
Где: Николаев

Репутация: 1
Всего: 4

Атрибут Width

Snowy

Дата 5.5.2011, 11:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Width вернёт размер для дефолтового шрифта и 100% Scale.

Код

var
  l:   TLabel;
  cap: string;
  r:   TRECT;
begin
  cap := 'New Label Caption';
  l := TLabel.Create(Form1);
  l.Caption := cap;
  FillChar(r, SizeOf(r), #0);
  DrawText(Form1.Canvas.Handle, PChar(cap), -1, r, DT_LEFT or DT_CALCRECT); // рассчитать размер
  l.Parent := Form1;
  return r.Right; // label's width
end;

Вместо Form1 - тот контрол, на который кладёшь label.
Размеры будут расчитаны в r: TRect - Right = ширина, Bottom = высота;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »