Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
 Проблема ScaleBy + Anchors  [new]
Hug
Member

Откуда: Екатеринбург
Сообщений: 508
Ребята, привет.
Делаю масштабирование формы через
TForm.ScaleBy

Делаю это в OnCreate. Почему-то не учитываются Anchors, а конкретно правый.
Форма простейшая. Голая форма + TEdit. Так вот этот эдит не якорится по правой стороне
ПОчему и что делать?
1 дек 17, 12:39    [20998045]     Ответить | Цитировать Сообщить модератору
 Re: Проблема ScaleBy + Anchors  [new]
Freedoom
Guest
Hug
Делаю это в OnCreate...ПОчему и что делать?

Делать в OnShow
1 дек 17, 13:29    [20998253]     Ответить | Цитировать Сообщить модератору
 Re: Проблема ScaleBy + Anchors  [new]
шК0ДЕР
Member

Откуда: Сызрань, городок на Волге
Сообщений: 71
Hug,

Edit1.Anchors := [akRight];
TForm.ScaleBy();
1 дек 17, 13:32    [20998267]     Ответить | Цитировать Сообщить модератору
 Re: Проблема ScaleBy + Anchors  [new]
Hug
Member

Откуда: Екатеринбург
Сообщений: 508
Freedoom, не помогает
2 дек 17, 20:24    [21001121]     Ответить | Цитировать Сообщить модератору
 Re: Проблема ScaleBy + Anchors  [new]
Hug
Member

Откуда: Екатеринбург
Сообщений: 508
шК0ДЕР
Hug,

Edit1.Anchors := [akRight];
TForm.ScaleBy();


он выставлен конечно же
2 дек 17, 20:27    [21001132]     Ответить | Цитировать Сообщить модератору
 Re: Проблема ScaleBy + Anchors  [new]
_Vasilisk_
Member

Откуда: Украина, Харьков
Сообщений: 9916
Hug,

dfm
Form.Position = poDesigned;
2 дек 17, 22:56    [21001421]     Ответить | Цитировать Сообщить модератору
 Re: Проблема ScaleBy + Anchors  [new]
Hug
Member

Откуда: Екатеринбург
Сообщений: 508
_Vasilisk_
Hug,

dfm
Form.Position = poDesigned;


не помогло
https://www.dropbox.com/s/k4ae7mf7wypa005/Скриншот 2017-12-09 20.34.13.png?dl=0
9 дек 17, 18:33    [21020881]     Ответить | Цитировать Сообщить модератору
 Re: Проблема ScaleBy + Anchors  [new]
Freedoom
Guest
Hug, озвучь версию delphi и тестовый пример в студию
9 дек 17, 21:55    [21021190]     Ответить | Цитировать Сообщить модератору
 Re: Проблема ScaleBy + Anchors  [new]
YuRock
Member

Откуда: Донецк
Сообщений: 2468
Hug,

Поставь на форме BorderStyle=bsSingle, а после Create (например в OnShow) сделай BorderStyle:=bsSizeable;

Иногда помогал такой финт.
9 дек 17, 22:35    [21021252]     Ответить | Цитировать Сообщить модератору
 Re: Проблема ScaleBy + Anchors  [new]
rgreat
Member

Откуда:
Сообщений: 3741
До:

К сообщению приложен файл. Размер - 10Kb
9 дек 17, 23:40    [21021322]     Ответить | Цитировать Сообщить модератору
 Re: Проблема ScaleBy + Anchors  [new]
rgreat
Member

Откуда:
Сообщений: 3741
procedure TForm15.FormCreate(Sender: TObject);
begin
  ScaleBy(2,1);
end;


После:

К сообщению приложен файл. Размер - 19Kb
9 дек 17, 23:40    [21021323]     Ответить | Цитировать Сообщить модератору
 Re: Проблема ScaleBy + Anchors  [new]
rgreat
Member

Откуда:
Сообщений: 3741
В общем ищите где и что у вас не так.
9 дек 17, 23:41    [21021325]     Ответить | Цитировать Сообщить модератору
 Re: Проблема ScaleBy + Anchors  [new]
X-Cite
Member

Откуда: Минск
Сообщений: 948
Tokyo 10.2 все работает
10 дек 17, 00:05    [21021349]     Ответить | Цитировать Сообщить модератору
Все форумы / Delphi Ответить