Advertisement
appo

Making the invisible form (Option 2)

Dec 27th, 2013
401
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.69 KB | None | 0 0
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7. Dialogs, StdCtrls, ExtCtrls;
  8.  
  9. type
  10. TForm1 = class(TForm)
  11. Timer1: TTimer;
  12.  
  13. procedure FormCreate(Sender: TObject);
  14. procedure Timer1Timer(Sender: TObject);
  15. private
  16. { Private declarations }
  17. public
  18. { Public declarations }
  19. end;
  20.  
  21. var
  22. Form1: TForm1;
  23.  
  24. implementation
  25.  
  26. {$R *.dfm}
  27.  
  28.  
  29. procedure TForm1.FormCreate(Sender: TObject);
  30. begin
  31. Form1.AlphaBlend:=true;
  32. Form1.AlphaBlendValue:=0;
  33. end;
  34.  
  35. procedure TForm1.Timer1Timer(Sender: TObject);
  36. begin
  37. ShowWindow(Application.handle, SW_HIDE);
  38. end;
  39. end.
  40. //PS.In Object Inspector on timer setinterval 1 millisec.
  41.  
  42. // Coded by Appo //
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement