daily pastebin goal
48%
SHARE
TWEET

Making the invisible form (Option 2)

appo Dec 27th, 2013 320 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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 //
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top