Советы по Delphi

       

Показ всплывающих подсказок компонентов


В нормальной ситуации всплавающие подсказки появляются непосредственно под областью компонента. Возможно ли их показывать несколько выше?

unit Unit1;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, DBTables, ExtCtrls;
typeTForm1 = class(TForm)Button1: TButton;procedure FormCreate(Sender: TObject);private { Private-Deklarationen }public { Public-Deklarationen }procedure DoShowHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo);end;
varForm1: TForm1;
implementation
{$R *.DFM}procedure TForm1.DoShowHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo);beginwith HintInfo doif HintControl = Button1 then beginHintPos.X := Left + Button1.Left;HintPos.Y := Top + (Button1.Top);end;end;
procedure TForm1.FormCreate(Sender: TObject);beginApplication.OnShowHint := DoShowHint;end;
end.

- Ralph Friedman [000951]



Содержание раздела