мышь хвостатая...

[Аlex]

Подскажите как так, чтобы при наведении мыши на форму изменялась прозрачность, А ПРИ УВЕДЕНИИ МЕНЯЛАСЬ ОБРАТНО?
проблема в основном в последнем....

[Virtson]

проверять в таймере положение курсора мыши .
GetCursorPos()

[mihali4]

А еще у формы есть событие OnMouseMove.
Вот как раз, начиная с него и можно запускать таймер.

[rpy3uH]

тогда как узнать что мышка ушла с формы

[mihali4]

тогда как узнать что мышка ушла с формы

Ответ:

проверять в таймере положение курсора мыши .
GetCursorPos()

Только не на форме, а на скрине, т.е. глобальные координаты мыши.

[SuperVisor]

Поломал немного голову... Сначала форма моргала, теперь работает, как часы.

Timer1:
Enabled = False;
Interval = 1;

Timer2:
Enabled = False;
Interval = 3;

Timer3:
Enabled = True;
Interval = 100;

Полний рабочий код:

 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if AlphaBlendValue<>255 then AlphablendValue:=AlphablendValue+5 else Timer1.Enabled:=False;
end;
 
procedure TForm1.FormActivate(Sender: TObject);
begin
 Timer2.Enabled:=False;
 Timer1.Enabled:=True;
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
begin
if AlphaBlendValue<>150 then AlphablendValue:=AlphablendValue-5 else Timer2.Enabled:=False;
end;
 
procedure TForm1.FormDeactivate(Sender: TObject);
begin
 Timer1.Enabled:=False;
 Timer2.Enabled:=True;
end;
 
procedure TForm1.Timer3Timer(Sender: TObject);
var
 Pt: TPoint;
  function GetPrnt(Hndl: HWND): boolean;
  begin
   Result:=false;
   while (hndl <> Form1.Handle) do
    begin
     Hndl:=GetParent(hndl);
     if hndl = 0 then break;
    end;
    if hndl <> 0 then Result:=true;
  end;
begin
GetCursorPos(Pt);
if not (timer1.Enabled or timer2.Enabled) then
 if (GetPrnt(GetFocus) or GetPrnt(WindowFromPoint(Pt))) then
 begin
   if (AlphaBlendValue<>255) then FormActivate(self)
  end else
   if (AlphaBlendValue<>150) then FormDeactivate(self);
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if (AlphaBlendValue<>255) and (not Timer1.Enabled) then FormActivate(self);
end;
end.

[psyke]

О! значит я не один такой
я бился с этим вопросом неделю, и пришёл к выводу, что тут нада действовать окольными путями. простыми событиями onmousexxx, prinrect...это не решишь. да и у некоторых компонентов нет такого события вообще и получается так, что мышь на форме, а она гаснуть начинает.

[BOBAH13]

привет, я считаю что подход к форме как Scroll компонент - т.к. он и является предком TForm )) так что на TForm так же действуют сообщения, такие как CM_MOUSEENTER и CM_MOUSELEAVE по этому логично следующее

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  private
      procedure CMMOUSEENTER(var Message: TMessage); message CM_MOUSEENTER;
      procedure CMMOUSELEAVE(var Message: TMessage); message CM_MOUSELEAVE;
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CMMOUSEENTER;
begin
      AlphaBlendValue := 150;
end;

procedure TForm1.CMMOUSELEAVE;
begin
      AlphaBlendValue := 255;
end;

end.

разумеется предварительно включить в инспекторе Form.AlphaBlend = True дерзайте...

[Аlex]

ВОВАН13 - ! Самый то.

[Аlex]

попутно возник такой вопрос: как отловить клик на Screen-e. т.е нужно чтобы user указал окно, а программа с помощью функции WindowFromPoint передала нме указатель на это окно типа HWND.
Не через Hook ли надо делать? можт как нить проще можно?