TObject.Visible

[Никки]

попробуй по таймеру проверять координаты курсора мыши. Если координаты лежат например в прямоугольнике от Labe1.Left до Label1.Left+Label1.Width (это ширина) и от Labe1.Top до Label1.Top+Label1.Height (это высота), то значит курсор находится над объектом Labe1!!

[Лубышев]

Я это пробывал, конечно здорово, но сам посуди, это не рационально...
Программа конечно будет работать, но не лучшим образом. А если бы была большущая программа? Процессор занят был бы какимито пустяками, а не делом. (Нужна оптимизация)

[)Игнат(]

Задам вопрос проще: какое событие отменяет событие OnMouseMove?

[mihali4]

Сообщение от )Игнат(

Задам вопрос проще: какое событие отменяет событие OnMouseMove?

Виндовое сообщение CM_MOUSELEAVE, я же описал...
А таймер использовать - это ... (ну нет слов, окромя матерных)

А если бы не знал своего события

Ну ваще... Это как это? Предусмотреть надо, любезный. "Защита от дурака" называется, второй пункт заповедей программиста...

[Никки]

А если бы не знал своего события, то как бы вышел из ситуации?

[pu4koff]

если уж извращаца, то для всех контролов формы пишем в OnMouseMove:
ActiveControl := TControl(Sender);
в классе формы дописываем:

...
private
  FActiveControl: TControl;
  procedure SetActiveControl(value: TControl);
public
  property ActiveControl: TControl read FActiveCOntrol write SetActiveControl;
...
end;
...
procedure TForm1.SetActiveControl(value: TControl);
begin
  if (FActiveControl <> value) then
  begin
    // Выполняем нужный код. value - контрол на который навели мышку, а FActiveControl - с которого увели мышь
    FActiveControl := value;
  end;
end;

у формы можно написать в OnMouseMove:
ActiveControl := nil;
ну и проверки ставить на nil
ЗЫ. писал здесь, так что может где и ошибся

[mihali4]

для всех контролов формы пишем в OnMouseMove

Не ловится зачастую событие "ухода", поэтому и используем OnMouseLeave... Попробуйте на быстром движении мышки. А вот OnMouseLeave срабатывает безупречно...

[pu4koff]

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

Не ловится зачастую событие "ухода", поэтому и используем OnMouseLeave... Попробуйте на быстром движении мышки. А вот OnMouseLeave срабатывает безупречно...

блин. я вот забыл про уход с формы. а так ведь если внутри формы ездить, то у какого-нибудь контрола да обработаеца OnMouseMove, но всеравно мое предложение - извращение )
ЗЫ. я этим никогда не пользовался и никому не советую, но всеже это помойму несколько лучше, чем по таймеру определять

[Романнн]

мнение ламера:
делаем событие на тик таймера, при котором в переменную записывается глобальное положение курсора мыши, и сравнивается с предыдущим. if положение = предыдущему, то движение мыши завершено, else движение мыши продолжается...
таймер поставить на 1 сек где-то
и далее, если движение закончено, то выполнить какое угодно действие
p.s. лично я так понял смысл вопроса...

[Романнн]

вот,собственно,код:

unit Unit11;

interface

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

type
  TForm11 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;
  point1,point2:tpoint;
implementation

{$R *.dfm}

procedure TForm11.FormCreate(Sender: TObject);
begin
point1:=mouse.CursorPos;//получаем текущее положение курсора
end;

procedure TForm11.Timer1Timer(Sender: TObject);
begin
point2:=mouse.CursorPos; //обновляем положение курсора
if (point2.X=point1.X) and (point2.Y=point1.Y) then //сравниваем старое с новым-если отличается,то...
button1.Visible:=false else
begin
button1.Visible:=true;
point1:=mouse.CursorPos;//обновляем положение курсора
end;
end;

end.

и проект...
процессор,естественно,нисколько не грузится