اظهار الHint لكلمة ما ؟؟

الا يوجد جواب للسؤال !!!

اخي العزيز ASP4DB

اين الموقع الذي تريد التحكم به هل هو في الويندوز(اي برامج اخرى ) ام في نفس البرنامج

وتقبل اطيب تحياتي اخوك SUM

أشكرك أخي SUM على ردك ، ما قصدته هو في بعض البرامج التي تستخدم في ترجمة بعض كلمات المواقع .. فحين التأشير على كلمة ما يظهر معناها كـHint ... كيف يمكن عمل ذلك في الدلفي ؟؟

اكرر شكري الكبير لك

تحياتي

قم بتجربة هذه الوحده ممكن تنفع معك

unit HintX;

interface

uses

Windows, Messages, Controls;

type

TIconHintX = class(THintWindow)

protected

procedure Paint; override;

public

function CalcHintRect(MaxWidth: Integer; const AHint: string; AData: Pointer): TRect; override;

end;

implementation

uses Forms;

{ TIconHintX }

{-Calculate the new size of the hint window to support an icon:-}

function TIconHintX.CalcHintRect(MaxWidth: Integer; const AHint: string;

AData: Pointer): TRect;

begin

Result := inherited CalcHintRect(MaxWidth, AHint, AData); Result.Right := (Length(AHint) * 5) + Application.Icon.Width;

Result.Bottom := (Application.Icon.Height) * 2;

end;

procedure TIconHintX.Paint;

const

MARGIN = 5;

begin

inherited;

Canvas.Draw(MARGIN, MARGIN * 5, Application.Icon);

SendMessage(Handle, WM_NCPAINT, 0, 0); //hint window border paint

end;

initialization

//this assigns our new class as the dafault hint window class:

HintWindowClass := TIconHintX;

end.

وتقبل اطيب تحياتي اخوك SUM

أشكرك أخي SUM لكن للأسف الشديد لم يعمل معي الكود ... على العموم أكرر لك جزيل شكري وتقديري لمساعدتك

تحياتي