Form1.Caption:='Text1' 'Text2' 我要在Text1和Text2中間放入一個bmp圖形，是否能做到呢？該如何得到Text1字串的起始和終止位置(pixels)呢？可以利用Canvas.TextWidth正確得到嗎？謝謝！

參考  http://delphi.ktop.com.tw/topic.php?TOPIC_ID=59050    >我要在Text1和Text2中間放入一個bmp圖形    1. Form1.Caption:='Text1' 2. 在WMNCPaint事件中畫入圖形及'Text2';

procedure TForm1.WMNCPaint(var Msg : TWMNCPaint);
var
  DC: HDC;
  ALeft : Integer;
  Text2 : String;
begin
  inherited;
  DC := GetWindowDC(Handle);
  try
    Text2 := 'Text2';
    SetBKMode(DC,TRANSPARENT);
    SetTextColor(DC,ColortoRGB(clCaptionText));        ALeft := Icon.Width Canvas.TextWidth(Caption);
    BitBlt(DC,ALeft,2,BMP.Width,BMP.Height,BMP.Canvas.Handle,0,0, SRCCOPY);
    TextOut(DC,ALeft BMP.Width 2,4,Pchar(Text2),Length(Text2));
  finally
    ReleaseDC(Handle, DC);
  end;
end;