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