大家好： 目前遇到了一個神奇的現像，我用一個TImage，設成透明，並且在上面畫一條線。如下所示： Image1.Transparent := True; Image1.Canvas.MoveTo(0, 0); Image1.Canvas.LineTo(100, 100); 依據這段，我期待Image1的背景是灰色的(Form的顏色)，而且有一條斜線。 在全彩的設定下，執行結果就是我所期待地！ 但在高彩，會出現白白的底色！ 請問，該如何解決？

I think Transparent means it is a transparent control only. Wihtout loading any image, the Picture of TImage is empty. Try copying the background before drawing on the canvas:

var
    ARect: TRect;
begin
    ARect := Image1.ClientRect;
    with ARect do begin
        Top    := Image1.Top;
        Left   := Image1.Left;
        Right  := Left   Right;
        Bottom := Top   Bottom;
    end;
    with Image1.Canvas do begin
        CopyRect(ClipRect,self.Canvas,ARect);
        MoveTo(0, 0);
        LineTo(100, 100);
    end;
end;

P.S. I cannot see the plus ' ' symbol in preview?? 發表人 - william 於 2002/11/07 17:22:20

謝謝！已經可以了！