Question

delphi透明窗体代码

小弟我最近在自学Delphi，在网上找教材(一个有68集的教材,大家一搜就能找到)，上面有一个实例，就是透明窗体，我照她说的代码输进去以后，出现了一个问题，看不懂，哪位高手帮下忙，谢谢！
代码如下：procedure TForm1.DoInvisible;
var
AControl : TControl;
A, Margin, X, Y, CtlX, CtlY : Integer;
begin
Margin := (Width - ClientWidth ) div 2;
FullRgn := CreatRectRgn(0, 0, Width, Height);
X ;=Margin;
Y :=Height - ClientHeight - Margin;
ClientRgn := CreateRectRgn(X,Y,X+ClientWidth,Y+ClientHeight) ;
CombieRgn(FrllRgn,FullRgn,ClientRgn,RGN_DIFF);
for A:= 0 to ControlCount - a do begin
AControl := Controls[A];
if (AControl is TWinControl ) or (AControl is TGraphicControl)
then with AControl do begin
if Visible then begin
CtlX := X + Left;
CtlY := Y + Top;
CtlRgn := CreateRectRgn(CtlX,CtlY,CtlX+Width,CtlY+Height)
CombineRgn(FullRgn,FullRgn,CtlRgn,RGN_OR);
end;
end;
错误提示：Undeclared identifier:'FullRgn'(代码第七行的问题)

Answer 1

FullRgn没有声明
这个应该是个公用变量或全局变量，你可以在相应位置加上就可以了。

Answer 2

var
Form1:TForm1;
FullRgn:HRGN;

Answer 3

晕^^^^,应该是冒号!!!";"是什么????