كيف تحريك مجموعة عناصر في دلفي وإخفائها

[karamofweb]

السلام عليكم ،
اود ان اعرف ما ادا وجدت طريقة سلسة لتحريك مجموعة عناصر في الدلفي ... مكون او مكتبة ما .
فائق عبارات التقدير مني لكم.

[SMP3]

أنت تقصد Drag & Drop أليس كذلك
اذا كان كذلك فألق نظرة على هذا الفيديو

كود :

http://www.youtube.com/watch?v=nebIdYOk-XE

أما اذا لم تكن تقصد Drag and Drop (تقصد تحريك الكونترول وقت التشغيل Run Time)
فهذا مثال على السريع :

PHP كود :

var
    _X,
    _Y: Integer;
    _Clicked: Boolean;
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  _X := X;
  _X := Y;
  _Clicked := True;
  SetCapture(Form1.Button1.Handle);

end;

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if _Clicked then
    with Sender as TControl do
    begin
      Left := X - _X + Left;
      Top  := Y - _X + Top;
    end;
end;
  procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if _Clicked then
  begin
    _Clicked := False;
     ReleaseCapture ;

  end;
end; 


[karamofweb]

شكرا ..اقصد تحريك لبعناصر ... مثال وضعت 3 edits واخفيها بطريقة سلسة بعد ان تمتلا الثلاث