[Tutorial] Formulário Transparente [DELPHI]

[~ Heatlex. 11]

Formulário Transparente

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

 

type

TForm1 = class(TForm)

Label1: TLabel;

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.DFM}

 

procedure TForm1.FormShow(Sender: TObject);

begin

Brush.Style := BsClear;

end;

end.