Скачать: CL | DM;

закрыть окно   Найти похожие ветки 

← →
9899100   (2007-12-05 15:28) [0]

Уважаемые! подскажите, надо закрыть окно, когда пользователь вывел курсор мышки за пределы окна, возможно это сделать?? и если да то как??
у TForm нет события типа onMouseLeave :(

---

← →
{RASkov} ©   (2007-12-05 15:36) [1]

> [0] 9899100   (05.12.07 15:28)
> у TForm нет события типа onMouseLeave

Добавь
 TForm1 = class(TForm)
 private
   procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
   procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
   { Private declarations }
 public
   { Public declarations }
 end;

---

← →
9899100   (2007-12-05 15:53) [2]

оно закрывается как только я навожу мышку на открытое окно
:((
чего не так??

procedure TForm2.CMMouseLeave;
Begin
Close;
End;

---

← →
Eraser ©   (2007-12-05 15:56) [3]

> 9899100   (05.12.07 15:53) [2]

CM_CM_MOUSELEAVE срабатывает как только указатель переходит на какой-то другой визуальный компонент, даже если он находится на форме.

---

← →
{RASkov} ©   (2007-12-05 16:08) [4]

> [2] 9899100   (05.12.07 15:53)
> оно закрывается как только я навожу мышку на открытое окно
> :((
> чего не так??

:)
Не должно.... сделай новый проект и проверь.
Возможно у тебя остались "старые попытки" закрытия, вот они и "косячат"....
Но данный [1] способ "не надежный" из-за "ненадежности" приведенных сообщений....
Попробуй мышку убать с формы резко)

---

← →
9899100   (2007-12-05 16:08) [5]

а как это узнать ??
что у казатель над компонентом этой формы ?

---

← →
{RASkov} ©   (2007-12-05 16:09) [6]

> [5] 9899100   (05.12.07 16:08)

PtInRect

---

← →
9899100   (2007-12-05 16:10) [7]

> {RASkov}

нее, проект новый ничего акромя этого там нету :)
видимо Eraser прав

---

← →
{RASkov} ©   (2007-12-05 16:12) [8]

> [7] 9899100   (05.12.07 16:10)

Эх... точно.... у меня-то в голове пустая форма :)

---

← →
Eraser ©   (2007-12-05 16:34) [9]

> 9899100   (05.12.07 16:10) [7]

ээ.. если форма пустая, то CM_CM_MOUSELEAVE вызываться не должен ;)

---

← →
Игорь Шевченко ©   (2007-12-05 16:59) [10]

SetCapture/ReleaseCapture

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.01 c