用画刷在屏幕上写字

procedure TForm1.btn1Click(Sender: TObject); var c:TCanvas; begin c:= TCanvas.Create; c.Pen.Width := 5; c.Font.Size := 20; c.Font.Name := '微软雅黑'; c.Font.Color := clRed; c.Brush.Color :=

>>阅读原文<<