Помогите с проблемкой [D6]
jenbbond © (2002-05-28 11:53:00)
Подскажите как можно унаследовать ,поменять свойства(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:00) [1]
> jenbbond
А если так :
if ChildControl is TYourButton then begin
with ChildControl as TYourButton do begin
//your code goes here...
end; //with
end; //if
Наверх 
ЧАТ |
Орешник |
|
