Source Code



Form Transparent

  • anonymous
  • Jan 16' 14
  • Delphi
  • 142
  • 218
  • United States
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    Image1: TImage;
    CloseBtn: TBitBtn;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure CloseBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Brush.Style:=bsClear;
  Top:=100;
  Left:=100;
  Width:=Screen.Width;
  Height:=Screen.Height;
end;

procedure TForm1.FormPaint(Sender: TObject);
var i,j : integer;
begin
  For i:=0 To ClientWidth Div 32 Do
    For j:=0 To ClientHeight Div 32 Do
        Form1.Canvas.Draw(i*32,j*32,Image1.Picture.Icon);
end;

procedure TForm1.CloseBtnClick(Sender: TObject);
begin
  close;
end;

end.
  • Tags : form, transparent
comments powered by Disqus

Related Code

How to minimize application with modal window

Progressbar inside Button

Right justify ListBox items

ComboBox with icons

Drive Info

Make the dektop icon text transparent

convert minutes in a days / hours / minutes format



Category

Tag Linked