首頁 > 資訊科技 > Delphi開發 > 利用TCanvas把字畫到螢幕上
2012
10-24

利用TCanvas把字畫到螢幕上

每次都會忘記怎麼寫,直接寫在這當筆記好了

[delphi]procedure TForm1.btn1Click(Sender: TObject);
var
mycanvas: TCanvas;
SourceDC: HDC;
begin
mycanvas := TCanvas.Create;
try
SourceDC := CreateDC('DISPLAY', '', '', nil);
mycanvas.Handle := SourceDC;
mycanvas.font.Size := 50;
mycanvas.font.Color := clRed;
mycanvas.TextOut(250, 150, 'XX-999車輛即將靠站');
finally
mycanvas.Free
end;
DeleteDC(SourceDC);
end;[/delphi]

最後修改日:
作者:蔡 小翰

常見問題:

  1. 文章可以轉貼嗎?可以,不過請要註明出處並標示本站連結。
  2. 載點可以轉貼嗎?可以,歡迎隨意盜連,無須告知。
  3. 反盜版聲明:本站支持正版軟體,請勿討論破解版、快樂版、註冊碼、註冊機、序號...等違法主題。
  4. 檔案無法解壓縮或解壓縮時發生錯誤?請使用7-Zip解壓縮
  5. 更多細節請參閱使用條款及免責聲明


發表迴響