Изменить положение контролов при повороте экрана

[Andy]

Доброго дня всем! Такой вопроса: у меня на форме два ListView. В портретной ориентации первый над вторым. Существуют ли штатные механизмы в Delphi (типа view) для изменения положения этих контролов при смене ориентации экрана (например повернули в ландшафт и первый контроль стал слева от второго)?

Или только ручками в коде?

[Равиль Зарипов (ZuBy)]

а что сложно написать пару строк кода?

[estra]

а что сложно написать пару строк кода?

 

Сложного ничего, но ведь суть вопроса не в этом...

[bigjorj]

Если совсем не хочется кодить можно например создать свои формы под каждый форм фактор. Но это по мне неприятный путь...

[master webs]

самый простой вариант

 

procedure TForm1.FormResize(Sender: TObject);
begin

// Orientation
if (Height > Width) then
Label7.Text := 'Orientation: Portrait'
else if (Height < Width) then
Label7.Text := 'Orientation: Landscape';

end;

источник http://delphifmandroid.blogspot.com/2014/01/blog-post.html

[haword]

тоже думал что есть такая возможность чтобы в вертикальном положении было одно расположение контролов а в горизонтальном другое. но оказалась что такое делается только через вызов руками новой формы что убивает саму идею на корню. ибо если пользователь ввел в одну форму данные то надо это все переносить во вторую. а потом возврат к предыдущей форме тоже проблемный. короче вызов новой формы при повороте экрана это вариант просто на поиграться и в деле применим только в одноформенном приложении. 

[Andrew]

Может вам это поможет: http://www.jvesoft.com/wp/custom-ios-device-rotation. По аналогии попробуйте сделать и для Android.

[Andy]

Да, почитал другие источники. Получается или две формы, или руками менять расположение. Причем второй вариант предпочтительней, чтобы не переносит данные, как отметил

Изменено 7 ноября, 2015 пользователем Andy