5,386
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.FormPaint(Sender: TObject);
var
DC: HDC;
begin
DC := Self.Canvas.Handle;
SetTextColor(DC, clRed);
SetBkMode(DC, TransParent);
TextOut(DC, 50, 100, PAnsiChar('HELLO'), 5);
end;
///方法一:还是用VCL,但是是动态生成的
procedure TForm1.FormCreate(Sender: TObject);
begin
with TLabel.Create(Self) do begin
Left := 50;
Top := 50;
Caption := 'HELLO';
Parent := Self;
Visible := True;
end;
end;
///方法二:用Canvas的TextOut方法画
procedure TForm1.FormPaint(Sender: TObject);
begin
Self.Canvas.TextOut(100, 100, 'HELLO');
end;
///方法三:直接用API函数(与Canvas方法类似,略)