k top 各位 會員大家好 本人新增一個元件 是繼承label 其差別只是caption 畫的方向不同 程式使用上 卻發生一個問題 就是 必須把程式最小畫 或者 用其他程式 擋住畫面 在移開 才會顯示修改後的caption 強制下指令 repaint 也無效 是否 我paint 下錯地方 還是 函數使用錯誤呢 請大家幫個忙 protected { Protected declarations } procedure Paint; override;

GiGi您好 如果您paint是繼承TLabel的行為,在這個函式裡比需使用inherited來把TLabel裡的paint所做的行為執行一次, 若您paint行為是完全和TLabel.paint無關, 那麼, 您要把TLabel.paint基本上所維護Canvas的動作, 自己需要做.

pedro 謝謝您的回應 我把 PAINT POST 出來 請站上各位先進 幫忙 procedure TNewBzLabel.Paint; const Alignments: array[TAlignment] of Word = (DT_LEFT, DT_RIGHT, DT_CENTER); var Rect: TRect; begin with Canvas do begin if not Transparent then begin Brush.Color := Self.Color; Brush.Style := bsSolid; FillRect(ClientRect); end; Brush.Style := bsClear; Rect := ClientRect; DoDrawText( Rect, ( DT_EXPANDTABS or DT_WORDBREAK ) or Alignments[ Alignment ] ); end; end; procedure TNewBzLabel.DoDrawText( var Rect : TRect; Flags : Word ); var {Text : array[ 0..255 ] of Char; } Text : PChar; Size: Byte; TmpRect : TRect; UpperColor : TColor; LowerColor : TColor; begin Size := GetTextLen; {Get length of string in Edit1} Inc(Size); {Add room for null character} GetMem(Text, Size); GetTextBuf(Text, Size); {Creates Buffer dynamic variable} {GetTextBuf(Text, SizeOf(Text)); } Canvas.Font.Color := FFont.Color; //SiteNum Canvas.Font := FFont; DrawText(Canvas.Handle, PChar(' ' SiteNum), StrLen(PChar(SiteNum ' ')), Rect, Word(DT_RIGHT)); Rect.Top:=Rect.Top ((Height) div 4); if ( Flags and DT_CALCRECT <> 0) and ( ( Text[0] = #0 ) or ShowAccelChar and ( Text[0] = '&' ) and ( Text[1] = #0 ) ) then StrCopy(Text, ' '); if not ShowAccelChar then Flags := Flags or DT_NOPREFIX; Canvas.Font := Font; if F3DEffect = Resit3d then begin UpperColor := FShadowColor; LowerColor := FWhiteColor; end else begin UpperColor := FWhiteColor; LowerColor := FShadowColor; end; if F3DEffect in [ Resit3d, Raised3d ] then begin TmpRect := Rect; OffsetRect( TmpRect, 1, 1 ); Canvas.Font.Color := LowerColor; TmpRect := Rect; OffsetRect( TmpRect, -1, -1 ); Canvas.Font.Color := UpperColor; DrawText(Canvas.Handle, Text, StrLen(Text), TmpRect, Flags); end else if F3DEffect = Shadowed3d then begin TmpRect := Rect; OffsetRect( TmpRect, FhOffSet, FvOffSet ); Canvas.Font.Color := LowerColor; DrawText(Canvas.Handle, Text, StrLen(Text), TmpRect, Flags); end; Canvas.Font.Color := Font.Color; if not Enabled then Canvas.Font.Color := clGrayText; DrawText(Canvas.Handle, Text, StrLen(Text), Rect, Flags); FreeMem(Text, Size); end; 抱歉 有一點長 謝謝耐心看完

發現問題了 並不是原件的問題 是 formstyle=fsMDIForm 的關係 如果是fsNormal 元件正常無誤 但是 fsMDIForm 強制repaint 或者 reflash 都沒有用 必須 最小化在還原 或者 找一個form檔在前面才會重畫 不知站上各位有沒有遇到此種問題 可以解答 謝謝