摘要: //把文字输出到屏幕 procedure TForm1.Button1Click(Sender: TObject); var cvs: TCanvas; Rect: TRect; Str: string; begin cvs := TCanvas.Create; cvs.Handle := GetD 阅读全文
posted @ 2023-05-16 13:30 lucken 阅读(52) 评论(0) 推荐(0)