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;
Class Demo [输出文字到桌面]
最新推荐文章于 2023-07-03 14:51:15 发布