Текущий архив: 2002.06.06;
Скачать: CL | DM;

Вниз

Помогите с проблемкой   Найти похожие ветки 

← →
jenbbond   (2002-05-28 11:53) [0]

Подскажите как можно унаследовать ,поменять свойства(Caption) кнопок которые располагаются на GroupBox1.
Эти кнопки можно двигать, задав Controls[I], но их свойства не доступны.

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

var
I: Integer;
ChildControl: TControl;
begin
for I:= 0 to GroupBox1.ControlCount -1 do
begin
ChildControl := GroupBox1.Controls[I];
if Button = btNext then
ChildControl.Top := ChildControl.Top + 15
else
ChildControl.Top := ChildControl.Top - 15;
end;

end;

---

← →
Kozhanov ©   (2002-05-28 11:59) [1]

> jenbbond
А если так :
if ChildControl is TYourButton then begin
with ChildControl as TYourButton do begin
//your code goes here...
end; //with
end; //if

---

Страницы: 1 вся ветка

Текущий архив: 2002.06.06;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.009 c