Выделенный компонент

[Witaliy]

Я делаю программу, в которой нужно сделать передвижение RunTime компонентов.
И вот у меня проблема. Как сделать, чтобы для всех компонентов были те процедуры
для их движения:

procedure b1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
form1.Repaint;
form1.Canvas.Rectangle(b1.Left-2, b1.Top-2, b1.Left+b1.Width+2, b1.Top+b1.
Height+2);
dow:=true;
ox:=x;
oy:=y;
end;

procedure b1MouseMove(Sender: TObject; Shift: TShiftState; X
  Y: Integer);
begin
if dow=true then
 begin
   b1.Top:=b1.Top-(oy-y);
   b1.Left:=b1.Left-(ox-x);
   form1.Repaint;
 end;
end;

procedure b1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
dow:=true;
end;

Но как сделать, чтобы нажатый компонент можно было двигать, а остальные нет. И как сделать, чтобы вместо b1 был нажатый (выделенный) компонент???

[Stilet]

Вообще-то для этого Drag&Drop предназначается.
Ну в принципе можно для компонентов динамически определять процедуры-обработчики событий. В цикле пройдись по form1.controls и назначь им один и тот же обработчик(и)

[rpy3uH]

Сообщение от Witaliy

Но как сделать, чтобы нажатый компонент можно было двигать, а остальные нет. И как сделать, чтобы вместо b1 был нажатый (выделенный) компонент???

вместо b1 поставь везде TButton(Sender) и всё будет в ажуре! и в обработчике MouseUp поставь dow:=false;