SpinEdit!!!

← →
Alex is Fecit (2002-06-13 20:32) [0]

Привет всем!
Есть проблемка: Имеется куча SpinEdit"ов. Нужно заделать событие для отдельных групп спинов, чтобы переключаяя один - переключались остальные... Шо то не допирает...
Если все толкаю в изменение одного, то работают все кроме него...
8-((( Что за беда???

← →
Song © (2002-06-13 20:52) [1]

TComponent смотрите
FindComponent() можно

← →
Alex is Fecit (2002-06-13 22:36) [2]

>8-(
Не понял? Как его использовать, если нужно уловить по которому спину тыкнули?

← →
MBo © (2002-06-14 06:20) [3]

свяжи со всеми SpinEdit

procedure TForm1.SpinEdit1Change(Sender: TObject);
var i:integer;
begin
for i:=0 to ControlCount-1 do
if (Controls[i] is TSpinEdit) and (Controls[i] <> Sender)
then TSpinedit(Controls[i]).Value:=TSpinedit(Sender).Value;
end;

А может, лучше Action сделать?

← →
Alex is Fecit (2002-06-14 11:15) [4]

А если две группы спинов: в одной значения в два раза меньше чем в другой? тогда лучше как распознать группу?

У одной Tag будет 0 у другой 1

← →
Alex is Fecit (2002-06-14 13:02) [6]

Пиплы! Все еще проще!
1)На одно событие по изменению спина навязываю все спины
2)Проверяем, который спин является сендером!
3)8-) у спинов тоже можно задавать шаг: Increment!!!
That"s All!
Thanks Everybody!!!

SpinEdit!!! Найти похожие ветки