|
|
|
|
Delphi 1
Показ всплывающих подсказок компонентов
В нормальной ситуации всплавающие подсказки появляются
непосредственно под областью компонента. Возможно ли их показывать несколько выше?
|
unit Unit1;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, DBTables, ExtCtrls;
type
TForm1 = 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;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.DoShowHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo);
begin
with HintInfo do
if HintControl = Button1 then begin
HintPos.X := Left + Button1.Left;
HintPos.Y := Top + (Button1.Top);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnShowHint := DoShowHint;
end;
end.
|
- Ralph Friedman [000951]
|
|
|
|
|