23.03.2015, 21:54
|
|
Новичок
|
|
Регистрация: 22.12.2013
Сообщения: 67
Версия Delphi: Delphi 7
Репутация: 10
|
|
Код:
procedure TForm1.sSpinEdit1Change(Sender: TObject);
var
MyComponent: TComponent;
begin
MyComponent:= FindComponent(btnname);
TsButton(MyComponent).Top:= sSpinEdit1.Value;
end;
Спасибо) всё работает) |