[Gareth]

Доброго времени суток.

Мне нужно сделать что-то типа drag & drop, только в самой программе.
Есть 40 кнопок speedbutton.
Цель: Сделать так, что бы при нажатии и перемещении кнопки на другую кнопку, все её свойства и переменные, менялись местами.


На кнопках могут быть картинки, переменные и тд.

Я полагаю, надо делать запасные переменные, что бы грузить в них свойства первой кнопки, свойства второй кнопки передать к первой кнопки, после этого из запасных переменных грузить во вторую !? Или есть другой способ?

Есть название у этой процедуры ?) А то и гуглить толком не могу...
Подтолкните пожалуйста в правильном направлении

[lmikle]

Есть метод Assign, который копирует ВСЕ property одного объекта в другой того же класса. Но, думаю, что тебе он не подойдет, т.к. тебе все свойства копировать не надо. Соответсвенно, надо будет писать свой метод,ю типа:

Код:

procedure SwapProperties(Obj1, Obj2 : TSpeedButton);
var
  S : String;
  I :  Integer;
  ...
begin
  S := Obj1.Hint;
  Obj1.Hint := Obj2.Hint;
  Obj2.Hint := S;

  I := Obj1.Tag;
  Obj1.Tag := Obj2.Tag;
  Obj2.Tag := I;
  
  ...
end;

[Alegun]

Вот немного глючный набросок

З.Ы. Кой чё исправил

[Bargest]

А может проще переставить кнопки местами да переназначить обработчики (если они разные)?..