Move و Resize کنترلها بصورت RUNTIME توسط کاربر

چطور میشه این امکان رو به بعضی کنترلها(مثل TLabel یا TSpeedButton,...)
داد که در زمان اجرا .کاربر بتواند اندازه یا مکان آنها را عوض کند؟

سلام
توسط خاصیت هاش مثلا : یک باتون و یک ادیت باکس روی فرمت بزار و کد زیر رو بنویس

Button1.Height :=50;

Button1.Width :=100;



Edit1.Top :=100;

Edit1.Left :=100;

دو تکه کد بالا اندازه رو تغیر میده و کدهای پایین مکان رو :)
موفق باشی.

سلام
توسط خاصیت هاش مثلا : یک باتون و یک ادیت باکس روی فرمت بزار و کد زیر رو بنویس

Button1.Height :=50;

Button1.Width :=100;



Edit1.Top :=100;

Edit1.Left :=100;

دو تکه کد بالا اندازه رو تغیر میده و کدهای پایین مکان رو :)
موفق باشی.

با سلام
اگر منظورتان از Move حرکت اشیا روی فرم اصلی در هنگام اجرای برنامه می باشد از کد زیر استفاده کنید

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

const

  SC_DragMove = $F012;

begin

  ReleaseCapture;

  panel1.perform(WM_SysCommand, SC_DragMove, 0);

end;



procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

const

  SC_DragMove = $F012;

begin

  ReleaseCapture;

  edit1.perform(WM_SysCommand, SC_DragMove, 0);

end;

این برنامه یک panel و یک editbox را در هنگام اجرای برنامه بوسیله Drag روی فرم حرکت می دهد