Class Demo [輸出文字到桌面]

type
  TcustCls = class
  private
    Fx, Fy: Integer;
    Fs: string;
  public
    procedure outPut(x, y: Cardinal; s: Ansistring);
  end;

procedure Tcustcls.outPut(x, y: Cardinal; s: Ansistring);
var
  cvs: TCanvas;
begin
  if (x > 0) and (y > 0) then
  begin
    fx := x;
    fy := y;
    fs := s;
    try
    cvs := TCanvas.Create;
    cvs.Handle := GetDc(0);
    SetBkMode(cvs.Handle, TRANSPARENT);
    cvs.Font.Name := '宋體';
    cvs.Font.Style := [fsBold];
    cvs.font.Color := clRed;
    cvs.Font.Size := 50;
    cvs.TextOut(Fx, Fy, s);
    finally
    FreeAndNil(cvs);
    end;
  end
  else
    ShowMessage('座標錯誤');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  myCls: TcustCls;
  s: Ansistring;
begin
  s := '夕陽西下，小橋流水人家';
  myCls := TcustCls.Create;
  myCls.outPut(100, 100, s);
  myCls.Free;
end;