ايران ويج

به نام خدا

تقدیم به تمام دوستان عزیز
=-=-=-=-=-=-=-=-=-=-=-=-=-=

برای نمای تذکرات (Hints) بر روی اشیاء در دلفی ، به سادگی شیء BalloonHint را از Tool Palette انتخاب نمایید و بر روی فرم بکشید ( این کامپوننت از نسخه 2009 به بعد در پالت ابزار وجود دارد).
بسیار خب ، حالا هر شیء که نیاز به Hint دارد را انتخاب کنید و مقدار CustomHint آن را برابر با نام شیء BalloonHint قرار دهید ( این کار به سادگی از پنل Object Inspector نیز قابل انجام است)

کد: 
object btnCustomHint: TButton

Hint = 'This is a hint for the button'

CustomHint = BalloonHint1

ShowHint = True

end

بسیار خب حالا زمان آن است که پیغام مورد نظر خود را مشخص کنید ، این پیغام برای هر کنترل که خاصیت Hint را داراست قابل تنظیم است ، پس به سادگی این خاصیت را به متنی که میخواهید نمایش دهید تغییر دهید.
سپس خاصیت ShowHint را مساوی True قرار دهید.

کد: 
object Button1: TButton

 Left = 40

 Top = 408

 Width = 75

 Height = 25

 Hint = 'پیغام مورد نظر'

 CustomHint = BalloonHint1

 Caption = 'Button1'

 ParentShowHint = False

 ShowHint = True

 TabOrder = 1

 end

بسیار خب کار تمام است ، برنامه را اجرا کنید و موس را بر روی کنترل ببرید تا پیغامتان نمایش داده شود.
حتما خاصیت ParentShowHint ، توجه شما را به خودش جلب کرده ، اگر این خاصیت برابر با True باشد، تمام فرزندان شیء از خاصیت ShowHint والد خود پیروی میکنند.
-----------------------
اگر میخواهید که یک تصویر هم به پیغام نمایش داده شده اضافه بشه ! خیلی ساده است... ابتدا یک ImageList را به صفحه اضافه کنید ( این کار رو با کشیدن کامپوننت از Tool Palette به روی فرم انجام بدین). سپس خاصیت Images در شیء BalloonHint رو برابر با نام ImageList قرار بدین ( این کار به سادگی در پنل Object Inspector قابل انجام هست).
حالا برای اضافه کردن تصویر به ImageList میتونین روی اون در فرم کلیک راست کرده و ImageList Editor رو انتخاب کنید و کار اضافه کردن تصاویر رو انجام بدین.
وقتی که تصاویر اضافه شد ، حالا باید اونها رو در خاصیت Hint شئی که میخواد اونها رو نمایش بده تعریف کنیم. فرم کلی این خاصیت به شکل زیر هست

کد: 
title|message|imageindex

یعنی ابتدا تیتر و سپس پیغام و سپس شماره اندیس تصویر مورد نظر شما در ImageList که به BalloonHint معرفی کردید. برای مثال :

کد: 
object Button3: TButton

Hint =

'تیتر|' +

'پیغام مورد نظر ' +

'|2'

CustomHint = BalloonHint1

Caption = 'Button3'

end

حالا برنامه رو اجرا کنید ( با استفاده از کلید F9 یا Shift+Ctrl+F9 ) و از دیدن بالون داراتصویر لذت ببرید

امیدوارم که براتون کارائی داشته باشه
در صمن این اموزش از روی
Building User Interfaces with Delphi 2009
برداشته شده و بعضی قسمتها هم برای توضیحات بهش اضافه شده که امیدوارم کم و کاستی نداشته باشه.

در پناه خدا[/quote]

hamedalto