[개발/delphi] 힌트의 위치와 색상 변경하기

[개발/delphi] 힌트의 위치와 색상 변경하기

 procedure TForm1.DoOnShowHint(var HintStr: string;

   var CanShow: Boolean; var HintInfo: THintInfo);

var

 XYPoint : TPoint;

begin

 if HintInfo.HintControl = PlayBtn then

 begin

   getcursorpos(XYPoint);

   XYPoint.Y := XYPoint.Y + 15;

   with HintInfo do

   begin

     HintPos := XYPoint;  // 이 버튼 힌트의 위치 바꾸기.

     HintColor := clAqua; // 이 버튼의 색상만 바꾸기

     HintMaxWidth := 50;  // 이 버튼 힌트 wordwrap 주기.

   end;

 end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

 Application.OnShowHint := DoOnShowHint;

end;