++++++++++++++++++如何创建一个任意的窗口?[][][][][][][][[][][]

Question

我正在搞一个媒体播放器,
想创建一个好看.任意的窗口,
不知道该怎么做,谢谢大家的帮忙!

Answer 1

//这是我以前用过的一个算法，你看看，绝对好试！！！
//到时刻不要忘了给我分啊！！！
procedure TForm1.Button1Click(Sender: TObject);
var
   r:THandle;
begin
     r:=GetRgnFromBmpLR(Image1.Picture.Bitmap,clWhite,0,0);
     SetWindowRgn(Form2.Handle,r,false);
     UpdateWindow(Form2.Handle); //更新窗口
end;procedure TForm1.Button2Click(Sender: TObject);
var
   r:THandle;
begin
     r:=GetRgnFromBmpTB(Image2.Picture.Bitmap,clWhite,0,0);
     SetWindowRgn(Form2.Handle,r,false);
     UpdateWindow(Form2.Handle); //更新窗口
end;
/////////////////////////////////////////////////////
以下是，Bmp2Rgn单元，这个单元是核心！！！
unit Bmp2Rgn;
interface
uses
  Windows, Classes, Graphics;  function PointBit(X,Y:Integer):Byte;
  procedure InitBitmap(Bitmap:TBitmap);
  function FindNotWhite(R:TRect):TRect;
  function IsBlackR(R:TRect):boolean;
  function GetRectBRLR(r:TRect):TRect;
  function GetRectBRTB(r:TRect):TRect;
  function GetListRrectsLR(Bmp:TBitmap;BackColor:TColor):TList;
  function GetListRrectsTB(Bmp:TBitmap;BackColor:TColor):TList;
  function GetRgnFromBmpLR(Bmp:TBitmap;BackColor:TColor;OffsetX,OffsetY:integer):THandle;
  function GetRgnFromBmpTB(Bmp:TBitmap;BackColor:TColor;OffsetX,OffsetY:integer):THandle;
var
   Step:LongInt = 0;
   FirstScanLine:PByte = nil;
   MaxX:Integer =0;
   MaxY:Integer =0;implementationprocedure InitBitmap(Bitmap:TBitmap);
begin
     Step:=LongInt(Bitmap.ScanLine[0])-LongInt(Bitmap.ScanLine[1]);
     FirstScanLine:=Bitmap.ScanLine[0];
     MaxX:=Bitmap.Width;
     MaxY:=Bitmap.Height;
end;function PointBit(X,Y:Integer):Byte;
var
   a:integer;
begin
     a:=(x shr 3);
     result:=((PByte(LongInt(FirstScanLine)-(y*Step)+a)^ shl (x-(a shl 3))) and $80);
end;function FindNotWhite(R:TRect):TRect;
var
   i,j:integer;
begin
     Result.Left:=-1;
     for i:=r.Left to MaxX-1 do
         for j:=r.Top to MaxY-1 do begin
             if PointBit(i,j)>0 then begin
                Result.Left:=i;
                Result.Top:=j;
                Result.Right:=i;
                Result.Bottom:=j;
                exit;
                end;
             end;
end;function IsBlackR(R:TRect):boolean;
var
   i:integer;
   a,b,c:integer;
begin
     Result:=True;
     b:=r.Bottom*Step;
     for i:=r.Right downto r.Left do begin
         a:=(i shr 3);
         c:=a+LongInt(FirstScanLine);
         a:=((PByte(c-b)^ shl (i-(a shl 3))) and $80);
         if a>0 then begin
            Result:=False;
            exit;
            end;
         end;
     a:=(r.Right shr 3);
     b:=r.Right-(a shl 3);
     a:=a+LongInt(FirstScanLine);
     for i:=r.Bottom downto r.Top do begin
         c:=((PByte(a-(i*Step))^ shl b) and $80);
         if c>0 then begin
            Result:=False;
            exit;
            end;
         end;
end;
//下半部分在下面！！！！

Answer 2

//接着上面
function GetRectBRLR(r:TRect):TRect;
var
   i,j:integer;
   x:boolean;
   r1:TRect;
   a,b,c:integer;
begin
     Result.Left:=-1;
     x:=false;
     for i:=r.Left to MaxX-1 do begin
         a:=(i shr 3);
         b:=i-(a shl 3);
         a:=a+LongInt(FirstScanLine);
         for j:=0 to MaxY-1 do begin
             c:=((PByte(a-(j*Step))^ shl b) and $80);
             if c=0 then begin
                x:=True;
                Result.Left:=i;
                Result.Top:=j;
                Result.Right:=i;
                Result.Bottom:=j;
                break;
                end;
             end;
         if x then break;
         end;
     if x then begin
        while IsBlackR(Result) and (Result.Right<MaxX) and (Result.Bottom<MaxY) do begin
              Result.Right:=Result.Right+1;
              Result.Bottom:=Result.Bottom+1;
              end;
        r1:=Result;
        r1.Right:=r1.Right-1;
        r1.Bottom:=r1.Bottom-1;
        while IsBlackR(R1) and (R1.Right<MaxX) do
              R1.Right:=R1.Right+1;
        Result.Right:=r1.Right;
        R1.Right:=R1.Right-1;
        while IsBlackR(R1) and (R1.Bottom<MaxY) do
              R1.Bottom:=R1.Bottom+1;
        Result.Bottom:=r1.Bottom;
        end
     else Result.Left:=-1;
end;function GetRectBRTB(r:TRect):TRect;
var
   i,j:integer;
   x:boolean;
   r1:TRect;
   a,b:integer;
begin
     Result.Left:=-1;
     x:=false;
     for i:=r.Top to MaxY-1 do begin
         b:=LongInt(FirstScanLine)-(i*Step);
         for j:=0 to MaxX-1 do begin
            a:=(j shr 3);
            a:=((PByte(b+a)^ shl (j-a)) and $80);
            if a=0 then begin
               x:=True;
               Result.Left:=j;
               Result.Top:=i;
               Result.Right:=j;
               Result.Bottom:=i;
               break;
               end;
             end;
         if x then break;
         end;
     if x then begin
        while IsBlackR(Result) and (Result.Right<MaxX) and (Result.Bottom<MaxY) do begin
              Result.Right:=Result.Right+1;
              Result.Bottom:=Result.Bottom+1;
              end;
        r1:=Result;
        r1.Right:=r1.Right-1;
        r1.Bottom:=r1.Bottom-1;
        while IsBlackR(R1) and (R1.Right<MaxX) do
              R1.Right:=R1.Right+1;
        Result.Right:=r1.Right;
        R1.Right:=R1.Right-1;
        while IsBlackR(R1) and (R1.Bottom<MaxY) do
              R1.Bottom:=R1.Bottom+1;
        Result.Bottom:=r1.Bottom;
        end
     else Result.Left:=-1;
end;function GetListRrectsLR(Bmp:TBitmap;BackColor:TColor):TList;
var
   r:TRect;
   pr:PRect;
   fBitmap:TBitmap;
begin
     Result:=TList.Create;
     fBitmap:=TBitmap.Create;
     fBitmap.Assign(Bmp);
     fBitmap.Mask(BackColor);
     fBitmap.Monochrome:=True;
     fBitmap.PixelFormat:=pf1bit;
     fBitmap.Canvas.Brush.Color:=clWhite;
     InitBitmap(fBitmap);
     r.Left:=0;
     r.Top:=0;
     r:=GetRectBRLR(r);
     while r.Left<>-1 do begin
           New(pr);
           pr^:=r;
           Result.Add(pr);
           fBitmap.Canvas.FillRect(r);
           r:=GetRectBRLR(r);
           end;
     fBitmap.Free;
end;function GetListRrectsTB(Bmp:TBitmap;BackColor:TColor):TList;
var
   r:TRect;
   pr:PRect;
   fBitmap:TBitmap;
begin
     Result:=TList.Create;
     fBitmap:=TBitmap.Create;
     fBitmap.Assign(Bmp);
     fBitmap.Mask(BackColor);
     fBitmap.Monochrome:=True;
     fBitmap.PixelFormat:=pf1bit;
     fBitmap.Canvas.Brush.Color:=clWhite;
     InitBitmap(fBitmap);
     r.Left:=0;
     r.Top:=0;
     r:=GetRectBRTB(r);
     while r.Left<>-1 do begin
           New(pr);
           pr^:=r;
           Result.Add(pr);
           fBitmap.Canvas.FillRect(r);
           r:=GetRectBRLR(r);
           end;
     fBitmap.Free;
end;function GetRgnFromBmpLR(Bmp:TBitmap;BackColor:TColor;OffsetX,OffsetY:integer):THandle;
var
   j:integer;
   pr:PRect;
   pdr:PRGNDATA;
   Rects:TList;
begin
     Rects:=GetListRrectsLR(Bmp,BackColor);
     GetMem(pdr,SizeOf(TRgnDATA)+(Rects.Count*SizeOf(TRect)));
     pdr^.rdh.dwSize:=SizeOf(TRgnData);
     pdr^.rdh.iType:=RDH_RECTANGLES;
     pdr^.rdh.nCount:=Rects.Count;
     pdr^.rdh.nRgnSize:=SizeOf(TRect);
     pdr^.rdh.rcBound.Left:=0;
     pdr^.rdh.rcBound.Top:=0;
     pdr^.rdh.rcBound.Right:=Bmp.Width;
     pdr^.rdh.rcBound.Bottom:=Bmp.Height;
     pr:=@pdr^.Buffer;
     for j:=0 to Rects.Count-1 do begin
         pr^:=PRect(Rects.Items[j])^;
         pr^.Left:=pr^.Left+OffsetX;
         pr^.Right:=pr^.Right+OffsetX;
         pr^.Top:=pr^.Top+OffsetY;
         pr^.Bottom:=pr^.Bottom+OffsetY;
         inc(pr);
         end;
     Result:=ExtCreateRegion(nil,SizeOf(TRgnDATA)+(Rects.Count*SizeOf(TRect)),pdr^);
     FreeMem(pdr,SizeOf(TRgnDATA)+(Rects.Count*SizeOf(TRect)));
     while Rects.Count>0 do begin
           FreeMem(Rects.First,SizeOf(TRect));
           Rects.Delete(0);
           end;
     Rects.Free;
end;function GetRgnFromBmpTB(Bmp:TBitmap;BackColor:TColor;OffsetX,OffsetY:integer):THandle;
var
   j:integer;
   pr:PRect;
   pdr:PRGNDATA;
   Rects:TList;
begin
     Rects:=GetListRrectsTB(Bmp,BackColor);
     GetMem(pdr,SizeOf(TRgnDATA)+(Rects.Count*SizeOf(TRect)));
     pdr^.rdh.dwSize:=SizeOf(TRgnData);
     pdr^.rdh.iType:=RDH_RECTANGLES;
     pdr^.rdh.nCount:=Rects.Count;
     pdr^.rdh.nRgnSize:=SizeOf(TRect);
     pdr^.rdh.rcBound.Left:=0;
     pdr^.rdh.rcBound.Top:=0;
     pdr^.rdh.rcBound.Right:=Bmp.Width;
     pdr^.rdh.rcBound.Bottom:=Bmp.Height;
     pr:=@pdr^.Buffer;
     for j:=0 to Rects.Count-1 do begin
         pr^:=PRect(Rects.Items[j])^;
         pr^.Left:=pr^.Left+OffsetX;
         pr^.Right:=pr^.Right+OffsetX;
         pr^.Top:=pr^.Top+OffsetY;
         pr^.Bottom:=pr^.Bottom+OffsetY;
         inc(pr);
         end;
     Result:=ExtCreateRegion(nil,SizeOf(TRgnDATA)+(Rects.Count*SizeOf(TRect)),pdr^);
     FreeMem(pdr,SizeOf(TRgnDATA)+(Rects.Count*SizeOf(TRect)));
     while Rects.Count>0 do begin
           FreeMem(Rects.First,SizeOf(TRect));
           Rects.Delete(0);
           end;
     Rects.Free;
end;
end.

Answer 3

你把那两部分和在一起组成Bmp2Rgn.pas倒是你调用就行了！！！！
绝对好试！！！
可别忘了给我加分！！！！