shirin71
08-06-2011, 09:19 AM
چطور می توان Hint (ToolTip) ی با فونتی متفاوت از فونت استاندارد که ویندوز برای Hin داره ، داشت ؟
قبل از Type اصلی برنامه خطوط زیر رو وارد کنید
TMyHint=Class (ThinTWindow(
Constructor Create (Aowner:TComponent);override;
End;
با این کار ما یک کلاس جدیدی از Hint رو برای دلفی تعریف کردیم .
و حالا خطوط زیر را در زیر Implementation بنویسید :
Constructor TMyhint.Create(Aowner:TComponent);
Begin
inherited Create (Aowner);
Canvas.Font.Name:=’Arial’;
Canvas.Brush.Color:=ClBlue;
End;
و با این کار ساختار TMyHint را بوجود آوردیم ، یعنی خواستیم که فونت آن Arial و رنگ آن آبی باشد.
سپس در انتها برای اینکه این ساختار در برنامه اعمال شود خطوط زیر در قسمت OnCreate فرم
اصلی برنامه کپی کنید :
Application.ShowHint:=False;
HintWindowClass:=TMyhint;
Application.ShowHint:=True;
قبل از Type اصلی برنامه خطوط زیر رو وارد کنید
TMyHint=Class (ThinTWindow(
Constructor Create (Aowner:TComponent);override;
End;
با این کار ما یک کلاس جدیدی از Hint رو برای دلفی تعریف کردیم .
و حالا خطوط زیر را در زیر Implementation بنویسید :
Constructor TMyhint.Create(Aowner:TComponent);
Begin
inherited Create (Aowner);
Canvas.Font.Name:=’Arial’;
Canvas.Brush.Color:=ClBlue;
End;
و با این کار ساختار TMyHint را بوجود آوردیم ، یعنی خواستیم که فونت آن Arial و رنگ آن آبی باشد.
سپس در انتها برای اینکه این ساختار در برنامه اعمال شود خطوط زیر در قسمت OnCreate فرم
اصلی برنامه کپی کنید :
Application.ShowHint:=False;
HintWindowClass:=TMyhint;
Application.ShowHint:=True;