When moving a window, (Click + Drag), the window becomes semi-transparent. That's all.
Can be done?
Can be done?




bool draging=false;
bool a=false;
void MoveForm()
{
ReleaseCapture();
SNDMSG( Form1->Handle, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0 );
}
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
draging=true;
a=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X,
int Y)
{
if(a)
{
if(draging)
{
Form1->AlphaBlendValue=127;
MoveForm();
Form1->AlphaBlendValue=255;
}
}
a=false;
}When the user presses ctrl and drags the window, it becomes trasnparent and is moved.[Forum Topic][.ahk Version][.exe Version]
I don't understand, do you need this for your app, or for any window in your OS...??Notice that the solution i presented above is a complete program. You download the ".exe" version, execute it and it'll display an icon on the tray (which should be in the right corner of the screen). To quit it, just right-click the icon and select "exit".
When moving a window, (Click + Drag), the window becomes semi-transparent. That's all.
Can be done?
No, no, jgpaiva, I downloaded your app and it's ok...
Sorry, i misread your post and understood you were cheeaun


However, if someone is able to compile the script

Original address: https://www.donationcoder.com/forum/index.php?topic=5536.0