119,急怎么样让ScrollBox控件变成透明？

Question

如题

Answer 1

Create a Scroll Box with Bitmap Background    
    
It's simple to create it.1. Create a new object inherits from TScrollBox2. We need two variables,TBitmap variable to save bitmapTCanvas variable to draw bitmap on scrollbox3. Define a BackBitmap property on published area so the propertycan change from Object Inspector.4. Inherits the WM_PAINT message handler5. Define a Painting procedure to draw bitmap.6. Override PaintWindow procedure for paint scrollbox.the object type istypeTMyScrollBox = Class(TScrollBox) (* an object inherited from TScrollbox *)privateFNHBitmap: TBitmap; (* TBitmap variable to save bitmap *)FNHCanvas: TCanvas; (* TCanvas variable to draw bitmap *)procedure WMPaint(var Message: TWMPaint); message WM_PAINT;(* Override the WM_PAINT message handler *)procedure SetBitmap(Value: TBitmap);(* procedure to set bitmap. Used by BackBitmap property *)protectedprocedure Painting; (* procedure to draw bitmap *)procedure PaintWindow(DC: HDC); override; (* Procedure to paint window *)publishedproperty BackBitmap: TBitmap read FNHBitmap write SetBitmap;(* BackBitmap Property *)publicconstructor Create(Owner: TComponent); override;(* Constructor to create object *)destructor Destroy; override;(* Destructor to destroy object *)end;6. Constructor to create object.At this procedure, create the TCanvas variable as TControlCanvas.The TControlCanvas is an object inherited from TCanvas that can be used todraw on Control Surface.Set the property Control on this variable to Self.constructor TMyScrollBox.Create(Owner: TComponent);begininherited Create(Owner);FNHBitmap := TBitmap.Create;FNHCanvas := TControlCanvas.Create; (* Create as a TControl Canvas *)TControlCanvas(FNHCanvas).Control := Self;(* Set the Control property so you can draw on the scrollbox surface. *)end;7. Procedure PaintingThis procedure is used to draw on the scrollbox surface.You must use the vertical scrollbar position and horizontal scrollbar positionto draw the bitmap, and repeat drawing for tiling bitmap.9. Message trappingWhen the scrollbox get WM_PAINT message, then the message will be handled byWMPaint procedure. The WMPaint procedure calls PaintHandler, so the control'sbackground will be painted by calling PaintWindow and any child controls tooby calling PaintControls.The Painting procedure is called by PaintWindow.You can copy this source, save as NScroll.pas, and install to your component palette.　(* Source Code *)unit NScroll;interfaceusesSysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,Forms;typeTMyScrollBox = Class(TScrollBox)privateFNHBitmap: TBitmap;FNHCanvas: TCanvas;procedure WMPaint(var Message: TWMPaint); message WM_PAINT;procedure SetBitmap(Value: TBitmap);protectedprocedure Painting;procedure PaintWindow(DC: HDC); override;publishedproperty BackBitmap: TBitmap read FNHBitmap write SetBitmap;publicconstructor Create(Owner: TComponent); override;destructor Destroy; override;end;procedure Register;implementationconstructor TMyScrollBox.Create(Owner: TComponent);begininherited Create(Owner);FNHBitmap := TBitmap.Create;FNHCanvas := TControlCanvas.Create;TControlCanvas(FNHCanvas).Control := Self;end;destructor TMyScrollBox.Destroy;beginFNHBitmap.Destroy;FNHCanvas.Destroy;inherited Destroy;end;procedure TMyScrollBox.SetBitmap(Value : TBitMap);beginFNHBitmap.Assign(Value);invalidate;end;procedure TMyScrollBox.WMPaint(var Message: TWMPaint);beginPaintHandler(Message);end;procedure TMyScrollBox.PaintWindow(DC: HDC);beginFNHCanvas.Handle := DC;tryPainting;finallyFNHCanvas.Handle := 0;end;end;procedure TMyScrollBox.Painting;var FDrawHeight, FDrawWidth: Integer;Row, Column, xl, xt, xw, xh: Integer;xdl, xdt: Integer;xRect: TRect;i: integer;xhdl: Word;beginif (FNHBitmap.width <> 0) and (FNHBitmap.Height <> 0) then beginxRect := ClientRect;FDrawHeight := xRect.Bottom - xRect.Top;FDrawWidth := xRect.Right - xRect.Left;xdl := (HorzScrollBar.Position mod FNHBitmap.Width);xdt := (VertScrollBar.Position mod FNHBitmap.Height);for Row := 0 to (FDrawHeight div FNHBitmap.Height)+1 do beginfor Column := 0 to (FDrawWidth div FNHBitmap.Width)+1 do beginxl := Column*FNHBitmap.Width+xRect.Left-xdl;xt := Row*FNHBitmap.Height+xRect.Top-xdt;xw := FNHBitmap.Width;if (FDrawWidth - xl+xRect.Left) < xw then xw := (FDrawWidth - xl+xRect.Top);xh := FNHBitmap.Height;if (FDrawHeight - xt+xRect.Top) < xh then xh := (FDrawHeight - xt+xRect.Top);FNHCanvas.CopyRect(Rect(xl, xt, xl+xw, xt+xh), FNHBitmap.Canvas, Rect(0, 0, xw, xh));end;end;end;end;{}procedure Register;beginRegisterComponents('KPC', [TMyScrollBox]);end;end.上面这段说了怎样制作位图背景的ScorllBox，你把它的背景设成父窗口背景一样，看上去不就像透明了吗（办法虽笨，但可以试试）