نقل قول: یافتن موقعیت اشیا
سلام.
ClientToScreen
و دستورات مشابه.
اگر نتونستی پیدا کنی یا باهاش مشکل داشتی بگو نمونه کد برات بگذارم.
نقل قول: یافتن موقعیت اشیا
با عرض سلام مجدد
آقا مجتبی طبق کدی که شما دادید جستجو کرده بودم و نتیجه ای نرسیدم
کدهاش نامفهوم بود برام
ممنون میشم نمونه کدی ارائه کنید فداتون بشم
نقل قول: یافتن موقعیت اشیا
آقای تاجیک رو خدا بیامرزه :قهقهه:
مثال:
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)
نقل قول: یافتن موقعیت اشیا
سلام
از کد زیر هم میشه استفاده کنید:
var: p,p2:tpoint;
begin
p.x:=lable1.left;
p.y:=lale1.top;
p2:=ClientToScreen(p); //مختصات بر اساس صفحه نمایش
end;
نقل قول: یافتن موقعیت اشیا
سلام علیکم
ممنونم بابت کدهاتون
جواب داد دوستان
حالا یه مسیله دیگه وقتی یک شی داخل یه پنل داشته باشیم Left و Top از لبه Panel محاسبه میشه
اون رو چطوری بدست بیاریم که از لبه فرم Left و Top چقدر هست؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟
نقل قول: یافتن موقعیت اشیا
نقل قول:
نوشته شده توسط
Delphi 2010
سلام علیکم
ممنونم بابت کدهاتون
جواب داد دوستان
حالا یه مسیله دیگه وقتی یک شی داخل یه پنل داشته باشیم 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 ی که می خواهید نسبت بهش اندازه گیزی کنید بهش پاس بدید.
