работа с Hint-ами

[nusik]

Здравствуйте формумчане!
Помогите плизз с hint-ами разобраться.
Задача стоит такая:
При навигации по richedit-у (up,down,left,right...) выводить hint рядом с позицией каретки
позицию каретки вычислем так:

 var pt:Tpoint;
....
  GetCaretPos(pt);
  pt:= ClientToScreen(pt);

получаем экранные координаты.
То есть я говорю точку в пикселях, и какой собственно текст, и выводиться соот-но hint.
Заранее спасибо.

[Баламут]

Может примерно так?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, RzPanel;

type
  TForm1 = class(TForm)
    RzToolbar1: TRzToolbar;
    RichEdit1: TRichEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    procedure MyShowHint(var HintStr: String; var CanShow: Boolean; var HintInfo: THintInfo);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MyShowHint(var HintStr: String; var CanShow: Boolean;
  var HintInfo: THintInfo);
var
  p: TPoint;
begin
  if not (HintInfo.HintControl is TRichEdit) then Exit;
  HintInfo.HintColor := clRed;
  GetCaretPos(p);
  p := RichEdit1.ClientToScreen(p);
  HintInfo.HintPos := p;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnShowHint := MyShowHint;
end;

end.

[Stilet]

Предлагаю быть проще:

procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Application.ActivateHint(Mouse.CursorPos);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 WITH RichEdit1 DO BEGIN
  Hint:='sfsdfsdfsd';
  ShowHint:=true;
 END
end;

[nusik]

Большое спасибо!

[sysyman]

Ну раз здесь разговор зашел о Hintax, может кто подскажет как показать подсказку при наведении курсора на форму ? Сложность в том , что подсказка должна появляться даже если форма не в фокусе! Навроде как сделано в программе download master. У меня в программе есть такое же небольшое окошко. окошко без обрамления я сделал, изменение прозрачности работает, подсказки тоже работают, но только когда окно в фокусе(то есть если нажать на него).

[Баламут]

В обработчике onMouseEnter нужной формы напиши что-то вроде Нужная_форма.SetFocus

[sysyman]

Спасибо! Только вместо обработчика onMouseEnter я использовал onMouseМоve. onMouseEnter я что то не нашел в Delphi 7.

[Stilet]

onMouseEnter я что то не нашел в Delphi 7.

Его легко описать:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  procedure w(var m:TMessage); message CM_MOUSEENTER;//WM_MOUSEMOVE;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.w(var m: TMessage);
begin
 SetFocus;
 Application.HintPause:=0;
 ShowHint:=true;
 Hint:='12122';
 Application.ActivateHint(Mouse.CursorPos);
end;

end.