Всплывающие подсказки

[Pinya]

Всем здравствуйте.
У меня такой вопрос.
Я пользуюсь событием onMouseMove.
И как мне туда добавить окно, которое после появления исчезало бы при нажатии на кнопку мыши в любой части экрана?
Или что-то подобное......

[Stilet]

Так подойдет?

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure q(var m:TWMKillFocus);message WM_killFocus;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.q(var m: TWMKillFocus);
begin
 if Form1.Handle<>WindowFromPoint(Mouse.CursorPos) then
 Hide;
end;

end.

[MAKEDON]

Поясни что ты хочешь? не очень понятно.

[Pinya]

Сообщение от Stilet

Так подойдет?

Прикольно.
Конечно лучше бы было, чтоб пропадала по щелчку мыши. Но и так не плохо.

Сообщение от MAKEDON

Поясни что ты хочешь? не очень понятно.

Я хочу сделать всплывающую подсказку.
Но не могу добиться того, что бы подсказка корректно скрывалась. Вот.
Так попонятнее?

[NikLik]

можно к исходнику Stilet'а добавить ещё процедуру

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
//здесь прячешь подсказку
end;

[Pinya]

Всем спасибо!
Я пришел к выводу что лучшее использование для всплывающих подсказок - это OnMouseDown и OnMouseUp.
Т. е. OnMouseDown - открываетя окно, а на OnMouseDown - закрывается.

[Stilet]

а на OnMouseDown - закрывается.

Тогда теряется твоя идея клика вне окна.

[NikLik]

А не проще ли сделать всё по таймеру?
Наводишь мышь на элемент(например, edit1.onmousemove)--появляется подсказка и включается таймер, в OnTimer--закрытие подсказки