Показать сообщение отдельно
  #18  
Старый 16.03.2011, 21:55
Janom Janom вне форума
Начинающий
 
Регистрация: 04.02.2011
Адрес: Москва
Сообщения: 148
Версия Delphi: 7
Репутация: 133
По умолчанию

Поменять местами кнопки в массиве...
Код:
...
var Buttons: array[1..2] of TButton;
     Buff:Tbutton;
begin
Buff:=Buttons[1];
Buttons[1]:=Buttons[2];
Buttons[2]:=Buff;
end;
Поменять местами кнопки на форме...
Код:
...
var Buttons: array[1..2] of TButton;
     Buff:Integer;
begin
Buff:=TButton(Buttons[1]).left;
TButton(Buttons[1]).left:=TButton(Buttons[2]).left;
TButton(Buttons[1]).left:=Buff;
end;
Ответить с цитированием