[Винды]Прозрачно/Не прозрачно при наведении/убирании курсора с окна

[x128]

Таймер нужен исключительно для удобства, пришло событие, включили таймер, он сделал свою работу и отключился. Почему не работает... не могу знать т.к. не вижу весь код, где-то ошибка. С обработкой событий MouseEnter и MouseLeave есть две неприятных мелочи, события наступают только в пределах клиентской области и когда курсор попадает на любой объект на форме, происходит событие MouseLeave.
Набросал другой вариант без описанных недостатков:

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
    procedure Idle(Sender: TObject; var Done: boolean);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

const
  a_min=80;
  a_max=240;
  a_step=4;

implementation

{$R *.dfm}

procedure TForm1.Idle(Sender: TObject; var Done: Boolean);
var
  p: TPoint;
  cb: boolean;
begin
  GetCursorPos(p);
  cb:=InRange(p.X, BoundsRect.Left, BoundsRect.Right) and
      InRange(p.Y, BoundsRect.Top, BoundsRect.Bottom);
  if (cb and (AlphaBlendValue=a_max)) or (not cb and (AlphaBlendValue=a_min)) then exit;
  with Timer1 do begin
    if cb then Tag:=1 else Tag:=-1;
    Enabled:=true;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  AlphaBlend:=true;
  AlphaBlendValue:=a_min;
  Timer1.Interval:=1;
  Timer1.Enabled:=false;
  Application.OnIdle:=Idle;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  AlphaBlendValue:=EnsureRange(AlphaBlendValue+(Timer1.Tag*a_step), a_min, a_max);
  if (AlphaBlendValue=a_min) or (AlphaBlendValue=a_max) then Timer1.Enabled:=false;
end;

можно вместо OnIdle использовать второй таймер.

[asmodey1]

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

на Д7 у меня не работает Leave, даже вариант asmodey1

Странно, у меня работает... именно на Д7...
Процедуры прописаны в private ?

[ArtGrek]

неа, в Д7 не катит, а в 2009 ваш тоже катик

[GreyScall]

Я бы не советовал пользоваться таймером... Есть же специальные функции - AnimateWindow() и TrackMouseEvent()...
Они чем-то не подходят? Или нужна поддержка более старых версий ОС?
RSDN: Как узнать, что мышь вышла за пределы окна?

А если у вас Layered-окно, то нужно просто подкорректировать альфа-канал...

[Johnson]

а разьве OnMouseEnter и OnMouseLeave не будут сбоить, когда мышь попадет на область с компонентом? К примеру, с кнопкой?
Когда-то давно я сталкивался с подобным, и, кажется, столкнулся с этим. Приходит OMouseEnter объекта кнопки, а у формы происходит OnMouseLeave....

[x128]

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

Я бы не советовал пользоваться таймером...

Чем так таймер не угодил?

Есть же специальные функции - AnimateWindow() и TrackMouseEvent()...

AnimateWindow и TrackMouseEvent имеют ограничения которые в общем и обходятся "ручками" с таймером.

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

а разьве OnMouseEnter и OnMouseLeave не будут сбоить

Последний пример как раз лишен этих недостатков.