Форум: "Основная";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];
ВнизМассив объектов. Найти похожие ветки
← →
MaXie (2002-03-20 15:10) [5]Ни array [..] of TControl, ни array [..] of TComponent не проходит. Оно то и понятно. Элементы класса TEdit и др. размещены на панели Panel1, которая и является собственником оных. В результате свойство Color меняется не у элемента(-ов) класса TEdit, а у самого собственника, т.е. у элемента Panel1.
Есть объявление:
procedure TForm1.TEditActive(W: array of TControl);
var
i : Integer;
begin
for i := 0 to 1 do
begin
with W[i] do
begin
Color := clCaptionText;
Font.Color := clWindowText
end
end;
, а также объявление массива:
W : array [0..1] of TControl;
Если теперь "кликнуть" по кнопке, процедура обработки клика которой выглядит следующим образом:
procedure TForm1.Button2Click(Sender: TObject);
begin
W[0] := Edit1;
W[1] := Edit2;
TEditActive(W)
end;
Изменится цвет панели Panel1, но ни как не цвет элементов Edit1 и Edit2. Как сформировать массив элементов (не только класса TEdit!), с целью дальнейшей передачи в функцию TEditActive?
To reonid: функция SetPropValue стандартная? (просто не нашел в описании к Delphi)
To Виктор Щербаков, Alex2: большое спасибо за ответы, но можно чуть по-подробнее (, если несложно привести фрагмент кода, понятное дело, для ламера :))
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c