چطور میشه این امکان رو به بعضی کنترلها(مثل TLabel یا TSpeedButton,...)
داد که در زمان اجرا .کاربر بتواند اندازه یا مکان آنها را عوض کند؟
چطور میشه این امکان رو به بعضی کنترلها(مثل 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 روی فرم حرکت می دهد