var CurrentControl: TControl;
// ...
if Componets is TControl then
begin
CurrentControl:=TControl(Components);
CurrentControl.Width := k * CurrentControl.Width;
// ...
end;
Обращение к свойствам объектов на форме
Мне нужно при запуске программы изменить положение и размер объектов формы в зависимости от установленного разрешения.
Суть проблемы в том, что объектов на форме очень много, и не хочется писать столько кода вида: Button1.Width:=k*Button1.Width
Я пробовал обратится через Form.Components в цикле, но не смог получить доступ к свойствам объекта, только имя.
Как можно решить эту проблему?
Суть проблемы в том, что объектов на форме очень много, и не хочется писать столько кода вида: Button1.Width:=k*Button1.Width
Я пробовал обратится через Form.Components в цикле, но не смог получить доступ к свойствам объекта, только имя.
Как можно решить эту проблему?
Код:
А вообще, такие вещи обычно делают с помощью свойств контролов Align и Anchors ;)
Тогда уж
Но через свойств контролов Align и Anchors лучше!!
Код:
// ...
Controls.Width := k * Controls.Width;
// ...
end;
Controls.Width := k * Controls.Width;
// ...
end;
Но через свойств контролов Align и Anchors лучше!!