события В delphi

[digital-stream]

противоположные события mousemove
например

если навести курсор мышки на форму вывести на Label курсор наведен

а если убрать курсор с формы то вывести сообщение типа курсор не наведен

думаю сут вопроса поняли всем заранее спс !

[TorrentTor]

Можно сделать так: на mousemove того контейнера в котором лежит Label и прописать обратное действие, например если метка лежит на форме:

метка:

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label1.Caption:='Есть';
end;

форма:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label1.Caption:='Нет';
end;

Хотя конечно для каких-то мощных действиях это не особо годится, так как может не хило затормозить действие.

[Hacker19_90]

ну или заместо

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label1.Caption:='Нет';
end;

использовать

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
    Label1.Caption := 'NO';
end;

[TorrentTor]

Hacker19_90, вот точно, его даже на много правильнее использовать, надо будет запомнить.

[digital-stream]

не ты меня не понял допустим что форма пустая а что тогда делать ?

[Hacker19_90]

не ты меня не понял допустим что форма пустая а что тогда делать ?

тогда пожалуйста будьте добры объяснить что вам КОНКРЕТНО надо!

[_SERGEYX_]

Типа этого

procedure TForm1.FormDeactivate(Sender: TObject);
begin
    ReleaseCapture;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  If GetCapture = 0 then
    SetCapture(Form1.Handle);
  if PtInRect(Rect(Form1.Left, Form1.Top, Form1.Left + Form1.Width,
      Form1.Top + Form1.Height), ClientToScreen(Point(X, Y))) then
    Label1.Caption := 'Мышь на форме'
  else
    Label1.Caption := 'Ушла с формы';
end;

Только что-то у меня ReleaseCapture; криво обрабатывается. Может косяк?

[GunSmoker]

Вообще-то в Delphi есть OnMouseEnter/OnMouseLeave.

А вообще - это зачем надо? Случайно не для "типа гиперссылок"?