براي جابجا كردن و تغيير سايز آبجكتها به صورت راين تايم

[علیرضا110]

سلام
اينم يك مثال براي جابجا كردن و تغيير سايز آبجكتها به صورت راين تايم
مي توانيد از آن استفاده كنيد


procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);

const
SC_DRAGSIZE = $F008;
begin
ReleaseCapture;
Button2.Perform(WM_SYSCOMMAND, SC_DRAGSIZE, 0);

end;

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DRAGMOVE = $F012;
begin
ReleaseCapture;
Button1.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;


اينم لينك دانلود مثال

دانلود (http://s6.picofile.com/file/8217910434/move_sizing.rar.html)

[ابوالفضل عباسی]

خوبه ولی بهتره که این رو به صورت کامپوننت در بیارین.
چون همیشه هرجا که میره باید روی یه فرم یا یه آبجکت این فرمان رو بنویسی و این باعث پردازش برای موس در هر مکان هست.
اما اگر کامپوننتش کنید نیازی نیست همه جای فرم این فرمان رو بنویسیم تا آبجکت ها رو جابه جا کنه.