Обращение через свойство Controls

Delphi , Компоненты и Классы , Свойства и События

Code:

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);

{©Drkb v.3(2007): www.drkb.ru}

var

I: Integer;

ChildControl: TControl;

begin

for I:= 0 to GroupBox1.ControlCount -1 do

begin

ChildControl := GroupBox1.Controls[I];

ChildControl.Top := ChildControl.Top + 15

end;

Проверить тип контрола надо оператором is:

if edit1 is TEdit then....

Затем доступ ко всем свойствам путем приведения класса:

(edit1 as TEdit).text:='';

Автор ответа: Kiber_rat

Взято с Vingrad.ru http://forum.vingrad.ru

Обратите внимание на использование оператора is для проверки типа контрола и доступа к его свойствам через приведение класса.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Свойства и События ::

Время компиляции файла: 2024-12-22 20:14:06
2025-01-28 06:28:04/0.0026791095733643/0