Попробуйте бросить один статический апдаун на форму, а дальше примерно так
Код:
...
// при создании
with TUpDown.Create(self) do
begin
Parent:= tp;
Name:= 'UpDown'+ IntToStr(nPanel);
Tag:= nPanel;
... // что-то ещё нужно добавить, напр. Left или Top, вам виднее
OnChanging:= UpDwnChanging;
end;
вот и эта общая для всех остальных "верхонизов" процедура
Код:
procedure TForm1.UpDwnChanging(Sender: TObject; var AllowChange: Boolean);
var
upd: TUpDown absolute Sender;
begin
(FindComponent('Edit' + IntToStr(upd.Tag)) as TEdit).Text:= Inttostr(upd.Position);
end; надеюсь, что по образцам других нативок вы сможете это дело прикрутить самостоятельно :-)
З.Ы. Кстати, комбинация UpDown + Edit очень похожа на SpinEdit со вкладки Samples