請問各位： 我想讓字串在Canvas上顯現出來， 但不知道如何改變字底邊的顏色， 想變成透明或其它色彩都行， 只是希望所輸出的字串不會影響到Canvas裡邊的圖形。 請問前輩們讓如何做呢？ 此外，我該如何讓字串旋轉， 我知道有API函數可做到， 然而卻忘了怎麼用了？

引言: 請問各位： 我想讓字串在Canvas上顯現出來， 但不知道如何改變字底邊的顏色， 想變成透明或其它色彩都行， 只是希望所輸出的字串不會影響到Canvas裡邊的圖形。 請問前輩們讓如何做呢？ avalokita您好： Canvas.Font.Color:=clblue;//字体颜色 //Canvas.Brush.Color:=clred;//底色 Canvas.Brush.Style := bsClear;//透明 canvas.textout(0,0,'avalokita'); 此外，我該如何讓字串旋轉， 我知道有API函數可做到， 然而卻忘了怎麼用了？ http://delphi.ktop.com.tw/topic.php?topic_id=52149 摘hagar 大大之回答： 拉兩個 TImage procedure TfrmMain.FormCreate(Sender: TObject); begin Image1.Canvas.Brush.Color := clBlack; Image1.Canvas.FillRect(Image1.ClientRect); Image1.Canvas.Font.Color := clRed; Image1.Canvas.Font.Name := 'Times New Roman'; Image1.Canvas.Font.Size := 18; Image1.Canvas.TextOut(9, 36, 'Delphi'); end; // 水平轉 procedure TfrmMain.Button1Click(Sender: TObject); var i: integer; begin for i := 1 to Image1.Width do BitBlt(Image2.Canvas.Handle, i, 0, 1, Image2.Height, Image1.Canvas.Handle, Image1.Width - i, 0, SRCCOPY); Image2.Refresh; end; // 垂直轉 procedure TfrmMain.Button2Click(Sender: TObject); var i: integer; begin for i := 1 to Image1.Height do BitBlt(Image2.Canvas.Handle, 0, i, Image2.Width, 1, Image1.Canvas.Handle, 0, Image1.Height - i, SRCCOPY); Image2.Refresh; end; 试试看 < face="Verdana, Arial, Helvetica"> ——行径窄处，留一步与人行—— ——Never give up, never surrender—— 發表人 - deity 於 2004/07/10 01:52:26

真是太謝謝您的指教了!!!

引言: 此外，我該如何讓字串旋轉， 我知道有API函數可做到， 然而卻忘了怎麼用了？

旋轉的話，查詢LOGFONT看看吧 ABCD分開看的懂，連起來像鬼劃符~~!!!