引言: Hi cxg 您好: 試試這個, 裡面有SourceCode可下載 http://www.greatis.com/delphi/components-imagelistbox.html 我不是高手, 高手是正在銀幕前微笑的人.

引言: Hi cxg 您好: 試試這個, 裡面有SourceCode可下載 http://www.greatis.com/delphi/components-imagelistbox.html 我不是高手, 高手是正在銀幕前微笑的人.

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  ImageRect1, NewRect, ImageRect2, ResRect: TRect;
begin
  ImageRect1 := Classes.Rect(
    0,
    0,
    Image1.Picture.Bitmap.Width,
    Image1.Picture.Bitmap.Height);      ImageRect2 := ImageRect1;
  IntersectRect(ResRect, ImageRect2, Rect);      NewRect.Left:=ImageRect1.Left;
  NewRect.Top:=ImageRect1.Top ResRect.Top-ImageRect2.Top;
  //NewRect.Top:=ResRect.Top;
  NewRect.Right:=ImageRect1.Right;
  NewRect.Bottom:=ImageRect1.Bottom ResRect.Bottom-ImageRect2.Bottom;
  //NewRect.Bottom:=ResRect.Bottom;      ListBox1.Canvas.CopyRect(
    ResRect,
    Image1.Picture.Bitmap.Canvas,
    NewRect);      ListBox1.Canvas.Brush.Style:=bsClear;
  ListBox1.Canvas.TextOut(
    Rect.Left 2,
    Rect.Top,
    ExtractFileName(ListBox1.Items[Index]));
end;    procedure TForm1.FormCreate(Sender: TObject);
var MyBmp : TBitmap;
begin
   MyBmp := TBitmap.Create;
   MyBmp.Width  := ListBox1.Width;
   MyBmp.Height := ListBox1.Height;
   MyBmp.PixelFormat := pf24bit;
   SetStretchBltMode(MyBmp.Canvas.Handle, ColorOnColor);
   stretchblt(MyBmp.Canvas.Handle, 0, 0, MyBmp.Width, MyBmp.Height, Image1.Picture.Bitmap.Canvas.Handle, 0, 0,
              Image1.Picture.Bitmap.Width, Image1.Picture.Bitmap.Height, srccopy);
   Image1.Picture.Bitmap := MyBmp;
   MyBmp.Free;
end;