یافتن موقعیت اشیا

[Delphi 2010]

با عرض سلام خدمت همه دوستان

یه سوال برای بنده پیش اومده، سوال کوچیکی هستش ولی تا حالا بهش بر نخورده بودم

ما وقتی می خوایم موقعیت یک شی رو روی فرم خودمون بدست بیاریم از دستور زیر استفاده می کنیم

Control.Top

Control.Left

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

1- در کل میخوام موقعیت یک شی رو براساس صفحه مانیتور بدست بیارم نه خود فرم (شی از سمت چپ و بالا صفحه نمایش چه موقعیتی داره) ؟؟؟؟؟؟؟؟؟؟؟
2- موقعیت اون شی از لبه فرم حتی اینکه داخل پنل یا جای دیگه باشه؟؟؟؟؟؟؟؟؟؟؟؟

[یوسف زالی]

سلام.
ClientToScreen
و دستورات مشابه.
اگر نتونستی پیدا کنی یا باهاش مشکل داشتی بگو نمونه کد برات بگذارم.

[Delphi 2010]

با عرض سلام مجدد

آقا مجتبی طبق کدی که شما دادید جستجو کرده بودم و نتیجه ای نرسیدم
کدهاش نامفهوم بود برام

ممنون میشم نمونه کدی ارائه کنید فداتون بشم

[یوسف زالی]

آقای تاجیک رو خدا بیامرزه

مثال:

  object Panel1: TPanel

    Left = 100

    Top = 100

    Width = 469

    Height = 269

    Caption = 'Panel1'

    TabOrder = 1

    object Panel2: TPanel

      Left = 50

      Top = 50

      Width = 375

      Height = 175

      Caption = 'Panel2'

      TabOrder = 0

      object Label1: TLabel

        Left = 20

        Top = 20

        Width = 32

        Height = 13

        Caption = 'Label1'

      end

    end

  end

Label1.ClientToParent(Point(0, 0), Self)

[golbafan]

سلام
از کد زیر هم میشه استفاده کنید:

var: p,p2:tpoint;

begin

p.x:=lable1.left;

p.y:=lale1.top;

p2:=ClientToScreen(p); //مختصات بر اساس صفحه نمایش

end;

[Delphi 2010]

سلام علیکم
ممنونم بابت کدهاتون
جواب داد دوستان

حالا یه مسیله دیگه وقتی یک شی داخل یه پنل داشته باشیم Left و Top از لبه Panel محاسبه میشه
اون رو چطوری بدست بیاریم که از لبه فرم Left و Top چقدر هست؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟

[golbafan]

سلام علیکم
ممنونم بابت کدهاتون
جواب داد دوستان

حالا یه مسیله دیگه وقتی یک شی داخل یه پنل داشته باشیم Left و Top از لبه Panel محاسبه میشه
اون رو چطوری بدست بیاریم که از لبه فرم Left و Top چقدر هست؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟

کافیه با مقدار موقعیت parent اش جمع بزنید...

if control.Hasparent=true then

p.x:=control.left+control.parent.left;

p.y:=control.top+control.parent.top;

[یوسف زالی]

مثالی که زدم برای فرم بود.
در حالت کلی نیاز به هیچ عملی ندارید.
ClientToScreen
ClientToParent
کافیه کنترل مورد نظر و Parent ی که می خواهید نسبت بهش اندازه گیزی کنید بهش پاس بدید.