[Oreon]

Добрый день, возникла проблема, необходимо среагировать на покидание мышью формы. Пробую MouseLeave. Оно не срабатывает для формы, поскольку форма занята компонентами. Для компонентов срабатывает. Обрабатывать ливы всего с чего можно покинуть форму или рассчитывать с таймером позицию курсора, как-то оно не то. Может можно все таки заставить его отработать на форме за всех компонентов? ))
PS

Код:

procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;

Приводит к срабатываниям при переходе с компонента на компонент или сразу же при нажатии ЛКМ (а мне как раз надо отловить уход мыши с нажатой ЛКМ)

[Alegun]

Можно через использование айпишной GetCapture

Код:

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

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
 if GetCapture = 0 then SetCapture(Handle);
 if PtInRect(Rect(Left, Top, Left + Width, Top + Height), ClientToScreen(Point(x, y))) then
  Caption:= 'Мышка на форме'  else 
  Caption:= 'Мышка за пределами формы';
 inherited;
end;//  Drkb:: 01573

[Oreon]

Ну это почти что расчет позиции курсора, наверно... Спасибо, правда надеялся, что мне ткнут в чем моя ошибка и заработает событие формы

[Alegun]

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

...правда надеялся, что мне ткнут в чем моя ошибка и заработает событие формы

А что здесь тыкать, когда это событие и так работает? Вот пример в подтверждение

Код:

// В секции type формы
procedure frmMouseEnter(var AMsg: TMessage); message CM_MOUSEENTER;
procedure frmMouseLeave(var AMsg: TMessage); message CM_MOUSELEAVE;
...
var
 flg: boolean;
procedure TForm1.frmMouseEnter(var AMsg: TMessage);
begin
flg:= true;
// срабатывает когда мышка на форме
Refresh;
end;
procedure TForm1.frmMouseLeave(var AMsg: TMessage);
begin
flg:= false;
// срабатывает когда мышка ушла с формы
Refresh;
end;// Drkb: 01574

отслеживайте состояние flg, если он в true, то мышка на форме, если в false, то ушла за пределы, вот и всё.

[Oreon]

Я это пробовал:

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

PS

Код:

procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;

Приводит к срабатываниям при переходе с компонента на компонент или сразу же при нажатии ЛКМ (а мне как раз надо отловить уход мыши с нажатой ЛКМ)

так что не работаит, хоть может я и туплю где, но где?
PS вообще это мне надо для попытки обойти еще одну траблу с Drag&Drop, если вы возможно сможете помочь разобраться с Drag&Drop то ловить эти события не придется. (Трабла состоит в том, что у меня получается реализовать перетаскивания как внутри формы, так и на внешние приложения, но раздельно - совместно один из подвидов - отрубается)

[angvelem]

Как ты проверяешь непонятно.

Код:

type
  TForm2 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure MouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
    procedure MouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  Wnd  : HWND;

implementation

{$R *.dfm}

procedure TForm2.MouseEnter(var Msg: TMessage);
begin
  Label1.Caption := 'Мышка на форме';
end;

procedure TForm2.MouseLeave(var Msg: TMessage);
begin
  Label1.Caption := 'Мышка вне формы';
end;

[Alegun]

Испытывал и с ЛКМ и с ПКМ и с колёсиком, на форме куча компонентов лежит, панелек и др. чепухи, уходит с формы и приходит на форму мыша норм., ни каких ложных срабатываний не наблюдаю, слежу за флажком.

З.Ы. Что-то здесь не так

...Трабла состоит в том, что у меня получается реализовать перетаскивания как внутри формы, так и на внешние приложения, но раздельно - совместно один из подвидов - отрубается...

Внутренний (внутри приложения) и внешний (работа с другими программами) Drag&Drop это совершенно независимые вещи, они никак не могут пересекаться т.к. борландовский интерфейс перетаскивания работает без использования виндовских функций API. Это наверное, другая тема.

[angvelem]

А зачем тебе флаг?

[Alegun]

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

А зачем тебе флаг?

Проверка идёт в другой процедуре, где происходит вот это

Код:

if flg then Label1.Caption:= 'Мышка на форме' else Label1.Caption:='Мышка вне формы';

[angvelem]

Ну тогда нужен Notify или таймер.

[Alegun]

Пора закрывать тему - ТС свалил предварительно объяснив что это всё ему не нужно, поскольку он реализует перетаскивание как внутри проги, так и с применением внешнего драга, а в этой топке была попытка закрыть одни косяки другими. Всё как обычно

[angvelem]

Как всегда - Мне нужно a, как сделать b, c не предлагать.

[Oreon]

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

Пора закрывать тему - ТС свалил предварительно объяснив что это всё ему не нужно, поскольку он реализует перетаскивание как внутри проги, так и с применением внешнего драга, а в этой топке была попытка закрыть одни косяки другими. Всё как обычно

Ну зачем так ТС просто не имеет возможности сидеть в теме весь день, он туда вечером смотрит... А вообще нужно, и я благодарен за попытки мне помочь, глядишь и сам поумнею... Нащет косяков - согласен, разбираясь с одними пришел к другим, но мне и то и то интересно

[Oreon]

Проверил еще раз (у меня 2010)

Код:

procedure TMainForm.FormMouseEnter(Sender: TObject);
begin
ShowMessage('');
end;

- никакой реакции

Код:

procedure TMainForm.Image1MouseEnter(Sender: TObject);
begin
ShowMessage('');
end;

- при входе сообщение. Создал новый проект на пустой форме аналогичные события вызывают сообщения. Может у меня опция какая в параметрах формы вырубана по типу "KeyPreview ", только для мыши...
Вообще приложение имеет такую конфигурацию: вся форма закрыта несколькими панелями со сплитерами, и на панелях уже собственно элементы интерфейса

[Oreon]

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

Внутренний (внутри приложения) и внешний (работа с другими программами) Drag&Drop это совершенно независимые вещи, они никак не могут пересекаться .

В теории - согласен, на практике - когда стартует драг по форме (я тащу файл на дерево каталогов) я меняю курсор, при наведении на приемник ветки подсвечиваются, при нажимании шифт/контрол курсор тоже реагирует - все отлично, но когда я пробую задействовать в маусдаун команду

Код:

DoDragDrop(dataObj, Mainform, dwOKEffects, AResult);

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