如上題..

由於StaticText元件為繼承 TWinControl 因此在透空上較麻煩 建議： 1.使用繼承TLable 再依自訂屬性加入外匡。 2.使用StaticText 最簡單的方法就是加入 private procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message WM_ERASEBKGND; ... procedure T....WMEraseBkgnd(var Message: TWMEraseBkgnd); begin {背景不重繪} Message.Result := 1; end;

一定要用Statictext才能 ~因弟用途需求 ~ 要在影片上顯示一些文字...如果用label會被影片蓋掉...

使用第二種方法，試試看！

還是不行.這Message.Result := 0 或1我都試過~沒有 變化.

I think you need to tell the Parent to repaint itself, e.g.

procedure MyStaticText.WMEraseBkgnd(var Message: TWMEraseBkgnd);
var
    ARect: TRect;
begin
    ARect := ClientRect;
    with ARect do begin
        TopLeft     := Parent.ScreenToClient(ClientToScreen(TopLeft));
        BottomRight := Parent.ScreenToClient(ClientToScreen(BottomRight));
    end;
    InvalidateRect(Parent.Handle,@ARect,True);
    RedrawWindow(Handle,nil,0,RDW_FRAME or RDW_INVALIDATE);
    Message.Result := 1;
end;

BTW, I think you should override the protected method "CreateParams", e.g.    

procedure Txxxx.CreateParams(var Params: TCreateParams);
begin
    inherited;
    with Params do
        ExStyle := ExStyle or WS_EX_TRANSPARENT;
end;

在影片上還是一樣沒透明呢~好奇怪...