PDA

View Full Version : انتقال و تغییر سایز یک component در زمان اجرای برنامه با دو خط


hedayat
دوشنبه 01 اسفند 1384, 08:33 صبح
سلام دوستان :
من با تکه برنامه زیر می تونم یک button یا هر component دیگری را در زمان اجرای برنامه جابجا و به هر جای فرم انتقال دهم .
(خیلی با حاله حتما امتحان کنید)
حالا می خوام بدونم کسی روشی بلده که بشه با اون سایز یک Component ‌رو هم در زمان اجرای برنامه تغییر بده!!!
m-khorsandi
دوشنبه 01 اسفند 1384, 08:43 صبح
واقعا تکه کد جالبی بود !:متفکر:

http://delphi.about.com/library/weekly/aa102505a.htm
hedayat
دوشنبه 01 اسفند 1384, 09:03 صبح
تکه کدش اشتباها توی یک topc دیگه رفته بود که اون رو مجددا در اینجا می زارم:


procedure TForm1.BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
sc_dragmove=$F012; {a magic number}
begin
ReleaseCapture;
BitBtn1.Perform(WM_SYSCOMMAND,sc_dragmove,0);
end;
babak_delphi
یک شنبه 07 اسفند 1384, 05:54 صبح
فکر کنم با تغییر scale بشه
Ehsansh
یک شنبه 07 اسفند 1384, 06:45 صبح
تغییر سایز کامپوننتها و جابجایی اونها بدون حتی 1 خط کد!
http://www.barnamenevis.org/forum/showthread.php?t=39174