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

[Sohrab_Tapar]

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

[hotice]

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

Button1.Height :=50;

Button1.Width :=100;



Edit1.Top :=100;

Edit1.Left :=100;

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

[hotice]

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

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 روی فرم حرکت می دهد