Помогите с проблемкой

← →
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

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