جابه جایی فرم

[nassim_20]

چطور می تونم بوسیله یه image و درگ کردن اون فرمم رو جابه جا کنم

[Loveski]

می خواهید عکس را جابجا کنید یا فرم را ؟

[dkhatibi]

می خواهید عکس را جابجا کنید یا فرم را ؟

فرمم رو جابه جا کنم
رویدادهای Onmouse را ببینید

[Hsimple11]

Image شما تمام فرم را در بر میگیرد؟

میتوانید در رویداد OnMouseDown بنویسید :


const
SC_DRAGMOVE = $F012;
begin
if Button = mbleft then
begin
ReleaseCapture;
Form1.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;

و قبل از آن :


private
procedure WMNCHitTest(var msg: TWMNCHitTest); message WM_NCHITTEST;
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMNCHitTest(var msg: TWMNCHitTest);
begin
inherited;
if msg.Result = htClient then
msg.Result := htCaption;
end;