Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

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

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

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

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;

end;

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

if edit1 is TEdit then....

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

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

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

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

Статья Обращение через свойство Controls раздела Компоненты и Классы Свойства и События может быть полезна для разработчиков на Delphi и FreePascal.


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


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




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



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


реклама

:: от лидирующей организации купить оригинальный чехол на айфон xs max жми здесь


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
19.09.2020 21:16:01/0.017342805862427/0