unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,
ExtCtrls;
type
TForm1 = class(TForm)
procedure TransparentForm;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
FullRgn, ClientRgn, ButtonRgn: THandle;
Margin, X, Y: Integer;
implementation
{$R *.DFM}
procedure TForm1.TransparentForm;
//
// Gera um form transparente.
// Requer a referencia do form em sua declaração tipo:
//
// procedure TForm1.InvisibleFor m;
// ^
//
begin
Margin := (Width - ClientWidth) div 2;
FullRgn := CreateRectRgn( 0, 0, Width, Height);
X := Margin;
Y := Height - ClientHeight - Margin;
ClientRgn := CreateRectRgn( X, Y, X + ClientWidth, Y + ClientHeight) ;
CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF);
SetWindowRgn( Handle, FullRgn, True);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
TransparentForm;
end;
end.
werelli <[EMAIL PROTECTED]> escreveu:
Olá Pessoal!
Bem gente estou tentando inserir um form transparente na aplicação que estou
desenvolvendo, o exemplo abaixo retirei lá do planeta delphi, mas devido ao meu
pouco conhecimento não estou conseguindo.
Por favor podem me dar uma mão? Como implementar a situação abaixo?
atenciosamente,
werelli
procedure TransparentForm;
//
// Gera um form transparente.
// Requer a referencia do form em sua declaração tipo:
//
// procedure TForm1.InvisibleForm;
// ^
//
var
FullRgn, ClientRgn, ButtonRgn: THandle;
Margin, X, Y: Integer;
begin
Margin := (Width - ClientWidth) div 2;
FullRgn := CreateRectRgn(0, 0, Width, Height);
X := Margin;
Y := Height - ClientHeight - Margin;
ClientRgn := CreateRectRgn(X, Y, X + ClientWidth, Y + ClientHeight);
CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF);
SetWindowRgn(Handle, FullRgn, True);
end;
__________________________________________________
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
__________________________________________________
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
