Изменение прозрачности при входе и выходе мыши
Изменение прозрачности при входе и выходе мыши
Изменение прозрачности при входе и выходе мыши 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.
