نمایش فرم در محل دلخواه

[peym4ns]

سلام
من می خوام فرمی رو در محل دلخواهی از یک فرم دیگه نمایش بدم ... مثلاً هر جا که روی فرم اصلی کلیک می کنم در مختصات ماوس ، فرم رو نشون بده
ممنون میشم اگه راهنماییم کنین.

[ealvandi]

سلام.
روی هر نقطه از فرم 1 که کلیک کنید فرم 2 تو اون نقطه نمایش داده میشه.
پروژه اش رو هم گذاشتم براتون .
موفق باشید.



procedure TForm1.FormClick(Sender: TObject);
begin
ShowMessage('x = ' + inttostr(Mouse.CursorPos.X) + ' , y = ' + inttostr(Mouse.CursorPos.y));
Form2.Top := Mouse.CursorPos.y;
Form2.left := Mouse.CursorPos.x;
Form2.Show;
end;