Hi everybody.
I´m trying to obtain on a Windows application a similar effect that one on Kubuntu when moving or resizing a window on screen: when start moving/resizing the window it gets transparent, and when finishing moving/resizing the window it gets opaque again.
The first stage is easy. Something like this:
procedure TForm1.FormChangeBounds(Sender: TObject);
begin
Self.AlphaBlend:=True;
Self.AlphaBlendValue:=150;
end;
But i can´t find an easy way to fit the second part, getting the window opaque when finishing moving or resizing. The ideal way would be the existence of something like a "OnEndChangeBounds" event and insert in it:
Self.AlphaBlend:=False;
Self.AlphaBlendValue:=255;
Or the existence of something like a LM_ENDMOVE message. I´d tried also with the "Tform.OnMouseUp" event, but don´t works clicking/unclicking the window´s title bar.
So, please, can anybody provide any help, suggestion or idea about it?
Thanks in advance.