drag کردن فرم

[afshincomputer]

چطوری میشه یه فرم رو drag & drop کرد . یعنی از هر نقطه ای توی فرم بشه عمل drag رو
انجام داد

ممنون میشم اگه راهنمایی کنید

[مهدی کرامتی]

اگر منظورتان جابجا کردن (Move) خود فرم با استفاده از ماوس است بطریق زیر عمل کنید:

در قسمت implementation فرمتان یک متغییر از نوع TPoint تعریف کنید، مانند زیر:

implementation

var

MPos:TPoint;

سپس در event های OnMouseDown و OnMouseMove فرمتان کدهای زیر را اضافه کنید:

procedure TFORM1.FORMMouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

MPos.X := X;

MPos.Y := Y;

end;



procedure TFORM1.FORMMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

if ssLeft in Shift then

  begin

   FORM1.Left := FORM1.Left - (MPos.X-X);

   FORM1.Top := FORM1.Top - (MPos.Y-Y);

  end;

[_alish_]

سلام
البته نمی دانم این موضوع کی فرستاده شده من دونبال حل مشکل خودم بودم که چشمم به این خورده گفتم بنویسم برای آینده

شماه می توانید در OnMouseDown فرم خود این کد را بنویسید

ReleaseCapture();

MainFrm.Perform(WM_SYSCOMMAND,$F012,0);